home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / HIRES.s < prev    next >
Encoding:
Text File  |  1996-07-29  |  221.3 KB  |  15,062 lines
  1.  
  2. CHEESEY equ 0
  3.  
  4. *************************************************
  5. * Stuff to do to get a C2P version:
  6. * Change copperlist
  7. * Change wall drawing
  8. * change floor drawing
  9. * change object drawing
  10. * change polygon drawing (ugh)
  11. * Write a palette generator program in AMOS
  12. * to provide a good 256 colour palette and
  13. * convert all graphics files specified
  14. * (possibly included in the game linker
  15. * program).
  16. * Possibly change the wall/floor/object
  17. * palettes to look nicer with more shades.
  18. * RE-implement stippling (if not present)
  19. * as it will look gorgeous now.
  20. *************************************************
  21.  
  22. ;MIDDLEX set 96
  23. ;RIGHTX set 191
  24. ;BOTTOMY set 160 
  25.  
  26. ;MIDDLEX set 96
  27. ;RIGHTX set 191
  28. ;BOTTOMY set 160
  29.  
  30. _break    macro
  31. ;    bkpt    \1
  32.     endm
  33.  
  34.  
  35. FILTER    macro
  36. ;    move.l    d0,-(sp)
  37. ;    move.l    #65000,d0
  38. ;.loop\@
  39. ;    bchg    #1,$bfe001
  40. ;    dbra    d0,.loop\@
  41. ;    move.l    (sp)+,d0
  42.     endm
  43.  
  44. BLACK    macro
  45.     move.w    #0,$dff180
  46.     endm
  47.  
  48. RED    macro
  49.     move.w    #$f00,$dff180
  50.     endm
  51.  
  52. FLASHER macro
  53. ;    movem.l    d1,-(sp)
  54. ;    move.w    #-1,d1
  55. ;
  56. ;loop3\@
  57. ;;    move.w    #\1,$dff180
  58. ;    nop
  59. ;    nop
  60. ;    move.w    #\2,$dff180
  61. ;    nop
  62. ;    nop
  63. ;    dbra    d1,loop3\@
  64.  
  65. ;    movem.l    (sp)+,d1
  66.  
  67.     endm
  68.  
  69. GREEN    macro
  70.     move.w    #$0f0,$dff180
  71.     endm
  72.  
  73. BLUE    macro
  74.     move.w    #$f,$dff180
  75.     endm
  76.  
  77. DataCacheOff macro
  78.     movem.l    a0-a6/d0-d7,-(sp)
  79.     move.l    4.w,a6
  80.     moveq    #0,d0
  81.     move.l    #%0000000100000000,d1
  82.     jsr    _LVOCacheControl(a6)
  83.     movem.l    (sp)+,a0-a6/d0-d7
  84.     endm
  85.  
  86. DataCacheOn macro
  87.     movem.l    a0-a6/d0-d7,-(sp)
  88.     move.l    4.w,a6
  89.     moveq    #-1,d0
  90.     move.l    #%0000000100000000,d1
  91.     jsr    _LVOCacheControl(a6)
  92.     movem.l    (sp)+,a0-a6/d0-d7
  93.     endm
  94.  
  95.     opt    P=68020
  96.  
  97.     include utils:sysinc/hardware/intbits.i
  98.  
  99. CD32VER equ 0
  100.  
  101. maxscrdiv EQU 8
  102. max3ddiv EQU 5
  103. playerheight EQU 12*1024
  104. playercrouched EQU 8*1024
  105. scrheight EQU 80
  106.  
  107. ; k/j/m
  108.  
  109. ; 4/8
  110. ; s/x
  111. ; b/n
  112.  
  113. midoffset EQU 104*4*40
  114.  
  115.  
  116.  SECTION Scrn,CODE
  117. OpenLib       equ -552
  118. CloseLib      equ -414
  119.  
  120. INTREQ        equ    $09C
  121. INTENA        equ    $09A
  122. INTENAR    equ    $01C
  123. DMACON        equ    $096
  124.  
  125. SERPER        equ    $032
  126. SERDATR    equ    $018
  127. SERDAT        equ    $030
  128. vhposr        equ $006    
  129. vhposrl    equ $007 
  130.  
  131. bltcon0    equ $40 
  132. bltcon1    equ $42
  133. bltcpt        equ $48
  134. bltbpt        equ $4c
  135. bltapt        equ $50
  136. spr0ctl    equ $142
  137. spr1ctl    equ $14a
  138. spr2ctl    equ $152
  139. spr3ctl    equ $15a
  140. spr4ctl    equ $162
  141. spr5ctl    equ $16a
  142. spr6ctl    equ $172
  143. spr7ctl    equ $17a
  144. spr0pos    equ $140
  145. spr1pos    equ $148
  146. spr2pos    equ $150
  147. spr3pos    equ $158
  148. spr4pos    equ $160
  149. spr5pos    equ $168
  150. spr6pos    equ $170
  151. spr7pos    equ $178
  152. bltdpt         equ $54
  153. bltafwm    equ $44
  154. bltalwm    equ $46
  155. bltsize         equ $58
  156. bltcmod         equ $60
  157. bltbmod         equ $62
  158. bltamod         equ $64
  159. bltdmod         equ $66
  160. diwstart        equ $8e         ; Screen hardware registers.
  161. diwstop         equ $90
  162. ddfstart        equ $92
  163. ddfstop         equ $94
  164. bplcon0         equ $100
  165. bplcon1         equ $102
  166. col0            equ $180
  167. col1            equ $182
  168. col2        equ $184
  169. col3        equ $186
  170. col4        equ $188
  171. col5        equ $18a
  172. col6        equ $18c
  173. col7        equ $18e
  174. col8            equ $190
  175. col9            equ $192
  176. col10           equ $194
  177. col11           equ $196
  178. col12           equ $198
  179. col13           equ $19a
  180. dmacon        equ $96
  181. dmaconr        equ $002
  182. intenar        equ $01c
  183. intena        equ $09a
  184. intreq        equ $09c
  185. intreqr        equ $01e
  186. intreqrl    equ $01f
  187. bpl1pth         equ $e0
  188. bpl1ptl         equ $e2
  189. bpl2pth        equ $e4
  190. bpl2ptl        equ $e6
  191. bpl3pth        equ $e8
  192. bpl3ptl        equ $ea
  193. bpl4pth        equ $ec
  194. bpl4ptl        equ $ee
  195. bpl5pth        equ $f0
  196. bpl5ptl        equ $f2
  197. bpl6pth        equ $f4
  198. bpl6ptl        equ $f6
  199. bpl7pth        equ $f8
  200. bpl7ptl        equ $fa
  201. bpl8pth        equ $fc
  202. bpl8ptl        equ $fe
  203. spr0pth        equ $120
  204. spr0ptl        equ $122
  205. spr1pth        equ $124
  206. spr1ptl        equ $126
  207. spr2pth        equ $128
  208. spr2ptl        equ $12a
  209. spr3pth        equ $12c
  210. spr3ptl        equ $12e
  211. spr4pth        equ $130
  212. spr4ptl        equ $132
  213. spr5pth        equ $134
  214. spr5ptl        equ $136
  215. spr6pth        equ $138
  216. spr6ptl        equ $13a
  217. spr7pth        equ $13c
  218. spr7ptl        equ $13e
  219. adkcon        equ   $09E
  220.  
  221.  
  222. ; move.l #length,d0
  223. ; moveq.l #2,d1    ; chipmem
  224. ; move.l 4.w,a6
  225. ; jsr allocmem(a6) = -198
  226.  
  227. ; tst.l d0
  228. ; beq.s ohbugger
  229. ; move.l d0,memaddr
  230.  
  231.  
  232. ; move.l 4.w,a6
  233. ; move.l memaddr,a1
  234. ; move.l #size,d0
  235. ; jsr freemem(a6) =-210
  236.  
  237.  
  238. ** This waits for the blitter to finish before allowing program
  239. ** execution to continue.
  240.  
  241.  
  242.  include "ab3:source_4000/protsetupdecode"
  243.  
  244. SAVEREGS MACRO
  245.  movem.l d0-d7/a0-a6,-(a7)
  246.  ENDM
  247.  
  248. GETREGS MACRO
  249.  movem.l (a7)+,d0-d7/a0-a6
  250.  ENDM
  251.  
  252.  
  253. WB MACRO
  254. \@bf:
  255.  btst #6,dmaconr(a6)
  256.  bne.s \@bf
  257.  ENDM
  258.  
  259. WBa MACRO
  260. \@bf:
  261.  move.w #\2,$dff180
  262.  
  263.  btst #6,$bfe001
  264.  bne.s \@bf
  265. \@bz:
  266.  
  267.  move.w #$f0f,$dff180
  268.  
  269.  btst #6,$bfe001
  270.  beq.s \@bz
  271.  
  272.  ENDM
  273.  
  274. *Another version for when a6 <> dff000
  275.  
  276. WBSLOW MACRO
  277. \@bf:
  278.  btst #6,$dff000+dmaconr
  279.  bne.s \@bf
  280.  ENDM
  281.  
  282. WT MACRO
  283. \@bf:
  284.  btst #6,(a3)
  285.  bne.s \@bd
  286.  rts
  287. \@bd: 
  288.  btst #4,(a0)
  289.  beq.s \@bf
  290.  ENDM
  291.  
  292. WTNOT MACRO
  293. \@bf:
  294.  btst #6,(a3)
  295.  bne.s \@bd
  296.  rts
  297. \@bd: 
  298.  btst #4,(a0)
  299.  bne.s \@bf
  300.  ENDM
  301.  
  302. **
  303.  
  304.  include "ab3:source_4000/ProtectionProtection"
  305.  include "macros.i"
  306.  include "ab3:source_4000/defs.i"
  307.  
  308. ;wtclickk:
  309. ; btst #6,$bfe001
  310. ; bne.s wtclickk
  311.  
  312.  move.w (a0)+,LEVTOPLAY
  313.  
  314.  
  315.  jsr MakePatch
  316.  
  317. ;    FLASHER $0f0,$fff
  318.  
  319. ; PROTFCALC
  320. ; PROTGCALC
  321. ; PROTHCALC
  322. ; PROTICALC
  323. ; PROTKCALC
  324. ; PROTLCALC
  325. ; PROTMCALC
  326.  
  327.  
  328.  
  329.  move.l #$dff000,a6    ; NB V. IMPORTANT: A6=CUSTOM BASE
  330.  move.w intenar(a6),_storeint
  331.  and.w #$c000,_storeint
  332.  
  333.  move.w #31,SERPER(a6)    ;19200 baud, 8 bits, no parity
  334.  
  335.  
  336.  st GOURSEL
  337.  
  338.  
  339.  move.l 4.w,a6
  340.  lea VBLANKInt(pc),a1
  341.  moveq #INTB_COPER,d0
  342.  jsr _LVOAddIntServer(a6)
  343.  
  344.     IFEQ CD32VER
  345.  move.l 4.w,a6
  346.  lea KEYInt(pc),a1
  347.  moveq #INTB_PORTS,d0
  348.  jsr _LVOAddIntServer(a6)
  349.     ENDC
  350.  
  351.  WBSLOW
  352.  
  353.  
  354.  IFNE CD32VER
  355.  clr.b PLR1KEYS
  356.  clr.b PLR1PATH
  357.  clr.b PLR1MOUSE
  358.  st PLR1JOY
  359.  clr.b PLR2KEYS
  360.  clr.b PLR2PATH
  361.  clr.b PLR2MOUSE
  362.  st PLR2JOY
  363.  ELSE
  364.  st PLR1KEYS
  365.  clr.b PLR1PATH
  366.  clr.b PLR1MOUSE
  367.  clr.b PLR1JOY
  368.  st PLR2KEYS
  369.  clr.b PLR2PATH
  370.  clr.b PLR2MOUSE
  371.  clr.b PLR2JOY
  372.  ENDC
  373.  
  374.  PRSDO
  375.  
  376.  move.l #2,d1    
  377.  move.l #10280*2,d0
  378.  move.l 4.w,a6
  379.  jsr -198(a6)
  380.  move.l d0,TEXTSCRN
  381.  move.w d0,TSPTl
  382.  swap d0
  383.  move.w d0,TSPTh
  384.  swap d0
  385.  add.w #80,d0
  386.  move.w d0,TSPTl2
  387.  swap d0
  388.  move.w d0,TSPTh2
  389.  
  390.  move.l #nullspr,d0
  391.  move.w d0,txs0l
  392.  move.w d0,txs1l
  393.  move.w d0,txs2l
  394.  move.w d0,txs3l
  395.  move.w d0,txs4l
  396.  move.w d0,txs5l
  397.  move.w d0,txs6l
  398.  move.w d0,txs7l
  399.  swap d0
  400.  move.w d0,txs0h
  401.  move.w d0,txs1h
  402.  move.w d0,txs2h
  403.  move.w d0,txs3h
  404.  move.w d0,txs4h
  405.  move.w d0,txs5h
  406.  move.w d0,txs6h
  407.  move.w d0,txs7h 
  408.  
  409.  move.l #0,d1    
  410.  move.l #140000,d0
  411.  move.l 4.w,a6
  412.  jsr -198(a6)
  413.  move.l d0,LEVELDATA
  414.  
  415.  move.l #0,d1
  416.  
  417.  ifeq CHEESEY    
  418.  move.l #320*256,d0
  419.  endc
  420.  
  421.  ifne CHEESEY
  422.  move.l #320*160,d0
  423.  endc
  424.  
  425.  move.l 4.w,a6
  426.  jsr -198(a6)
  427.  move.l d0,FASTBUFFER
  428.  
  429.  
  430.  move.l #consttab,a0
  431.  moveq #1,d0
  432.  move.w #8191,d1
  433. fillconst:
  434.  
  435.  move.l #16384*64,d2
  436.  divs.l d0,d2
  437. ; ext.l d2    ;c#
  438.  move.l #64*64*65536,d3
  439.  divs.l d2,d3
  440. ; move.l d3,d4
  441. ; asr.l #6,d4
  442.  move.l d3,(a0)+    ;e#
  443.   
  444.  asr.l #1,d2    ; c#/2.0
  445.  sub.l #40*64,d2    ; d#
  446.  muls.l d3,d2    ; d#*e#
  447.  
  448.  asr.l #6,d2
  449.  move.l d2,(a0)+
  450.  
  451.  addq #1,d0
  452.  
  453.  dbra d1,fillconst
  454.  
  455.  jsr START
  456.  
  457.  rts
  458.  
  459. FASTBUFFER: dc.l 0
  460.  
  461. SYSTEMBLITINT: dc.l 0
  462.  
  463. _storeint
  464.     dc.w 0
  465.  
  466. * Load level into buffers.
  467.  clr.b doanything
  468.  clr.b dosounds
  469.  
  470. ; DRAW TEXT SCREEN
  471.  
  472. TWEENTEXT:
  473.  
  474.  move.l LEVELTEXT,a0
  475.  move.w PLOPT,d0
  476.  muls #82*16,d0
  477.  add.l d0,a0
  478.  
  479.  move.w #15,d7
  480.  move.w #0,d0
  481. DOWNTEXT:
  482.  move.l TEXTSCRN,a1
  483.  jsr DRAWLINEOFTEXT
  484.  addq #1,d0
  485.  add.w #82,a0
  486.  dbra d7,DOWNTEXT
  487.  rts
  488.  
  489. FONTADDRS:
  490.  dc.l ENDFONT0,CHARWIDTHS0
  491.  dc.l ENDFONT1,CHARWIDTHS1
  492.  dc.l ENDFONT2,CHARWIDTHS2
  493.  
  494. ENDFONT0:
  495.  incbin "endfont0"
  496. CHARWIDTHS0:
  497.  incbin "charwidths0"
  498. ENDFONT1:
  499. ; incbin "endfont1"
  500. CHARWIDTHS1:
  501. ; incbin "charwidths1"
  502. ENDFONT2:
  503. ; incbin "endfont2"
  504. CHARWIDTHS2:
  505. ; incbin "charwidths2"
  506.  
  507.  even
  508.  
  509. DRAWLINEOFTEXT:
  510.  movem.l d0/a0/d7,-(a7)
  511.  
  512.  muls #80*16,d0
  513.  add.l d0,a1    ; screen pointer
  514.  
  515.  move.l #FONTADDRS,a3
  516.  moveq #0,d0
  517.  move.b (a0)+,d0
  518.  move.l (a3,d0.w*8),a2
  519.  move.l 4(a3,d0.w*8),a3
  520.  
  521.  moveq #0,d4
  522.  
  523.  moveq #0,d1    ; width counter:
  524.  move.w #79,d6
  525.  tst.b (a0)+
  526.  beq.s NOTCENTRED
  527.  moveq #-1,d5
  528.  move.l a0,a4
  529.  moveq #0,d2
  530.  moveq #0,d3
  531.  move.w #79,d0    ; number of chars
  532. .addup:
  533.  addq #1,d5
  534.  move.b (a4)+,d2
  535.  move.b -32(a3,d2.w),d4
  536.  add.w d4,d3
  537.  cmp.b #32,d2
  538.  beq.s .DONTPUTIN
  539.  move.w d5,d6
  540.  move.w d3,d1
  541. .DONTPUTIN:
  542.  dbra d0,.addup
  543.  asr.w #1,d1
  544.  neg.w d1
  545.  add.w #320,d1    ; horiz pos of start x
  546.  
  547. NOTCENTRED:
  548.  move.w d6,d7
  549. DOACHAR:
  550.  moveq #0,d2
  551.  move.b (a0)+,d2
  552.  sub.w #32,d2
  553.  moveq #0,d6
  554.  move.b (a3,d2.w),d6
  555.  asl.w #5,d2
  556.  lea (a2,d2.w),a4    ; char font
  557. val SET 0
  558.  REPT 16
  559.  move.w (a4)+,d0
  560.  bfins d0,val(a1){d1:d6}
  561. val SET val+80
  562.  ENDR
  563.  add.w d6,d1
  564.  dbra d7,DOACHAR
  565.  movem.l (a7)+,d0/a0/d7
  566.  rts 
  567.  
  568.  
  569. CLRTWEENSCRN:
  570.  move.l TEXTSCRN,a0
  571.  move.w #(10240/16)-1,d0
  572.  move.l #$0,d1
  573. .lll
  574.  move.l d1,(a0)+
  575.  move.l d1,(a0)+
  576.  move.l d1,(a0)+
  577.  move.l d1,(a0)+
  578.  move.l d1,(a0)+
  579.  move.l d1,(a0)+
  580.  move.l d1,(a0)+
  581.  move.l d1,(a0)+
  582.  dbra d0,.lll
  583.  rts
  584.  
  585. LEVTOPLAY: dc.w 0
  586.  
  587. COPYLINK: dc.l 0
  588.  
  589. PLAYTHEGAME:
  590.  
  591.  move.w #0,TXTCOLL
  592.  move.w #0,MIXCOLL
  593.  move.w #0,TOPCOLL
  594.  
  595.  bsr CLRTWEENSCRN
  596.  
  597.  cmp.b #'n',mors
  598.  bne.s .notext
  599.  bsr TWEENTEXT
  600. .notext
  601.  
  602. ;charlie 
  603.  move.l #TEXTCOP,$dff080
  604.  
  605.  move.w #$10,d0
  606.  move.w #7,d1
  607.  
  608. .fdup
  609.  move.w d0,TXTCOLL
  610.  move.w d0,MIXCOLL
  611.  add.w #$121,d0
  612. .wtframe:
  613.  btst #5,$dff000+intreqrl
  614.  beq.s .wtframe
  615.  move.w #$0020,$dff000+intreq
  616.  dbra d1,.fdup
  617.  
  618.  jsr INITCOPPERSCRN
  619.  
  620.  move.l #$dff000,a6
  621.  jsr SETPLAYERS
  622.  
  623.  move.l #0,TYPEOFMEM
  624.  move.l #LLname,a0
  625.  jsr LOADAFILE
  626.  move.l d0,LINKS
  627.  
  628.  move.l #0,TYPEOFMEM
  629.  move.l #LLFname,a0
  630.  jsr LOADAFILE
  631.  move.l d0,FLYLINKS
  632.  
  633. ; Get level memory.
  634.  
  635.  move.l #1,d1
  636.  move.l #40000,d0
  637.  move.l 4.w,a6
  638.  jsr -198(a6)
  639.  move.l d0,LEVELGRAPHICS
  640.  
  641.  move.l #1,d1
  642.  move.l #40000,d0
  643.  move.l 4.w,a6
  644.  jsr -198(a6)
  645.  move.l d0,LEVELCLIPS
  646.  
  647.  move.l #2,d1
  648.  move.l #70000,d0
  649.  move.l 4.w,a6
  650.  jsr -198(a6)
  651.  move.l d0,LEVELMUSIC
  652.  
  653.  move.l #$dff000,a6
  654.  
  655. ; move.b LEVTOPLAY,d0
  656. ; move.b d0,LEVA
  657. ; move.b d0,LEVB
  658. ; move.b d0,LEVC
  659. ; move.b d0,LEVD
  660. ; move.b d0,LEVE
  661.  
  662.  
  663. ; move.l #LEVELDATAD,LEVELDATA
  664. ; move.l #LEVELGRAPHICSD,LEVELGRAPHICS
  665. ; move.l #LEVELCLIPSD,LEVELCLIPS
  666.  
  667. ; bra noload
  668.  
  669. *********************************
  670.  
  671. ; move.l doslib,a6
  672. ; move.l #LLname,d1
  673. ; move.l #1005,d2
  674. ; jsr -30(a6)
  675. ; move.l d0,LLhandle
  676. ;
  677. ; move.l doslib,a6
  678. ; move.l d0,d1
  679. ; move.l #LINKS,d2
  680. ; move.l #10000,d3
  681. ; jsr -42(a6)
  682. ;
  683. ; move.l doslib,a6
  684. ; move.l LLhandle,d1
  685. ; jsr -36(a6)
  686.  
  687.  ********************************
  688.  
  689. ; move.l doslib,a6
  690. ; move.l #LLFname,d1
  691. ; move.l #1005,d2
  692. ; jsr -30(a6)
  693. ; move.l d0,LLhandle
  694.  
  695. ; move.l doslib,a6
  696. ; move.l d0,d1
  697. ; move.l #FLYLINKS,d2
  698. ; move.l #10000,d3
  699. ; jsr -42(a6)
  700.  
  701. ; move.l doslib,a6
  702. ; move.l LLhandle,d1
  703. ; jsr -36(a6)
  704.  
  705.  ************************
  706.  ********
  707.  
  708.  moveq #0,d1
  709.  move.b LEVA,d1
  710.  sub.b #'a',d1
  711.  lsl.w #6,d1
  712.  move.l LINKFILE,a6
  713.  add.l #LevelMusic,a6
  714.  add.l d1,a6
  715.  move.l a6,d1
  716.  
  717.  move.l doslib,a6
  718.  
  719.  move.l #1005,d2
  720.  jsr -30(a6)
  721.  move.l d0,LDhandle
  722.  
  723.  move.l doslib,a6
  724.  move.l d0,d1
  725.  move.l LEVELCLIPS,d2
  726.  move.l #40000,d3
  727.  jsr -42(a6)
  728.  
  729.  move.l doslib,a6
  730.  move.l LDhandle,d1
  731.  jsr -36(a6)
  732.  
  733. *************************************
  734.     move.l    LEVELCLIPS,d0
  735.     moveq    #0,d1
  736.     move.l LEVELMUSIC,a0
  737.     lea    WorkSpace,a1
  738.     lea    $0,a2
  739.     jsr    unLHA
  740. *************************************
  741.  
  742.  
  743.  move.l doslib,a6
  744.  move.l #LDname,d1
  745.  move.l #1005,d2
  746.  jsr -30(a6)
  747.  move.l d0,LDhandle
  748.  
  749.  move.l doslib,a6
  750.  move.l d0,d1
  751.  move.l LEVELCLIPS,d2
  752.  move.l #40000,d3
  753.  jsr -42(a6)
  754.  
  755.  move.l doslib,a6
  756.  move.l LDhandle,d1
  757.  jsr -36(a6)
  758.  
  759. *************************************
  760.     move.l    LEVELCLIPS,d0
  761.     moveq    #0,d1
  762.     move.l LEVELDATA,a0
  763.     lea    WorkSpace,a1
  764.     lea    $0,a2
  765.     jsr    unLHA
  766. *************************************
  767.  
  768. ********
  769.  
  770.  move.l doslib,a6
  771.  move.l #LGname,d1
  772.  move.l #1005,d2
  773.  jsr -30(a6)
  774.  move.l d0,LGhandle
  775.  
  776.  move.l doslib,a6
  777.  move.l d0,d1
  778.  move.l LEVELCLIPS,d2
  779.  move.l #40000,d3
  780.  jsr -42(a6)
  781.  
  782.  move.l doslib,a6
  783.  move.l LGhandle,d1
  784.  jsr -36(a6)
  785.  
  786. *************************************
  787.     move.l    LEVELCLIPS,d0
  788.     moveq    #0,d1
  789.     move.l LEVELGRAPHICS,a0
  790.     lea    WorkSpace,a1
  791.     lea    $0,a2
  792.     jsr    unLHA
  793. *************************************
  794.  
  795. ********
  796.  
  797.  move.l doslib,a6
  798.  move.l #LCname,d1
  799.  move.l #1005,d2
  800.  jsr -30(a6)
  801.  move.l d0,LChandle
  802.  
  803.  move.l doslib,a6
  804.  move.l d0,d1
  805.  move.l #WorkSpace+16384,d2
  806.  move.l #16000,d3
  807.  jsr -42(a6)
  808.  
  809.  move.l doslib,a6
  810.  move.l LChandle,d1
  811.  jsr -36(a6)
  812.  
  813. *************************************
  814.     move.l    #WorkSpace+16384,d0
  815.     moveq    #0,d1
  816.     move.l LEVELCLIPS,a0
  817.     lea    WorkSpace,a1
  818.     lea    $0,a2
  819.     jsr    unLHA
  820. *************************************
  821.  
  822.  
  823. *******
  824.  
  825. noload:
  826.  
  827. ********
  828.  
  829. ; move.l doslib,a6
  830. ; move.l #Prefsname,d1
  831. ; move.l #1005,d2
  832. ; jsr -30(a6)
  833. ; move.l d0,Prefshandle
  834.  
  835. ; move.l doslib,a6
  836. ; move.l d0,d1
  837. ; move.l #Prefsfile,d2
  838. ; move.l #50,d3
  839. ; jsr -42(a6)
  840.  
  841. ; move.l doslib,a6
  842. ; move.l Prefshandle,d1
  843. ; jsr -36(a6)
  844.  
  845. *******
  846.  
  847.  IFNE CD32VER
  848.  move.l doslib,a6
  849.  move.l #115,d1
  850.  jsr -198(a6)
  851.  ENDC
  852.  
  853.  
  854. ; move.l doslib,d0
  855. ; move.l d0,a1
  856. ; move.l 4.w,a6
  857. ; jsr CloseLib(a6)
  858.  
  859.  move.l #$dff000,a6
  860.  
  861. charlie:
  862. ; jmp  ENDGAMESCROLL
  863.  
  864.     move.w #$87c0,dmacon(a6)
  865.  
  866.     move.w    #%1000000000100000,dmacon(a6)
  867.  
  868. ; move.w intenar(a6),saveinters
  869.     
  870.     move.w #%00101111,intena(a6)
  871.  
  872.     move.w #255,adkcon(a6)
  873.  
  874.  
  875. *** Put myself in supervisor mode
  876.  
  877.  bra blag
  878. ; move.l $6c,d0
  879. ; move.l #blag,$6c
  880. ; move.w #$8010,intreq(a6)
  881.  
  882.  rts
  883.  
  884. saveit: ds.l 10
  885. doslibname: dc.b 'dos.library',0
  886.  even
  887. doslib: dc.l 0
  888.  
  889. mors: dc.w 0
  890.  
  891. LDname: dc.b 'tkg2:levels/level_'
  892. LEVA:
  893.  dc.b 'a/twolev.bin',0
  894.  even
  895. LDhandle: dc.l 0
  896. LGname: dc.b 'tkg2:levels/level_'
  897. LEVB:
  898.  dc.b 'a/twolev.graph.bin',0
  899.  even
  900. LGhandle: dc.l 0
  901. LCname: dc.b 'tkg2:levels/level_'
  902. LEVC:
  903.  dc.b 'a/twolev.clips',0
  904.  even
  905. LChandle: dc.l 0
  906. LLname: dc.b 'tkg2:levels/level_'
  907. LEVD:
  908.  dc.b 'a/twolev.map',0
  909.  even
  910. LLFname: dc.b 'tkg2:levels/level_'
  911. LEVE:
  912.  dc.b 'a/twolev.flymap',0
  913.  even
  914. LLhandle: dc.l 0
  915.  
  916.     cnop    0,4
  917.  
  918. Prefsname: dc.b 'ram:prefs',0
  919.  even
  920. Prefshandle: dc.l 0
  921.  
  922.  
  923.  even
  924.  
  925.  cnop 0,4
  926.  
  927. VBLANKInt:
  928.  dc.l 0,0
  929.  dc.b NT_INTERRUPT,9
  930.  dc.l Prefsname
  931.  dc.l 0
  932.  dc.l Chan0inter
  933.  
  934. KEYInt:
  935.  dc.l 0,0
  936.  dc.b NT_INTERRUPT,127
  937.  dc.l Prefsname
  938.  dc.l 0
  939.  dc.l key_interrupt
  940.  
  941. BLITInt:
  942.  dc.l 0,0
  943.  dc.b NT_INTERRUPT,127
  944.  dc.l Prefsname
  945.  dc.l 0
  946.  dc.l BlitterInterrupt
  947.  
  948.  
  949. blag:
  950. ; move.w #$10,intreq(a6)
  951. ; move.l d0,$6c
  952. ; move.w #$7fff,intena(a6)
  953.  
  954. ; move.w #$20,$dff1dc
  955.  
  956. ; move.l 4.w,a6
  957. ; lea VBLANKInt(pc),a1
  958. ; moveq #INTB_COPER,d0
  959. ; jsr _LVOAddIntServer(a6)
  960.  
  961. ****************************
  962. * Initialize level
  963. ****************************
  964. * Poke all clip offsets into
  965. * correct bit of level data.
  966. ****************************
  967.  move.l LEVELGRAPHICS,a0
  968.  move.l 12(a0),a1
  969.  add.l a0,a1
  970.  move.l a1,ZoneGraphAdds
  971.  move.l (a0),a1
  972.  add.l a0,a1
  973.  move.l a1,DoorData
  974.  move.l 4(a0),a1
  975.  add.l a0,a1
  976.  move.l a1,LiftData
  977.  move.l 8(a0),a1
  978.  add.l a0,a1
  979.  move.l a1,SwitchData
  980.  adda.w #16,a0
  981.  move.l a0,ZoneAdds
  982.  
  983.  move.l LEVELDATA,a4
  984.  lea 160*10(a4),a1
  985.  
  986.  lea 54(a1),a2
  987.  move.l a2,CPtPos
  988.  move.w 12(a1),NumCPts
  989.  move.w 14(a1),NumLevPts
  990.  
  991.  move.l 16+6(a1),a2
  992.  add.l a4,a2
  993.  move.l a2,Points
  994.  move.w 8+6(a1),d0
  995.  lea 4(a2,d0.w*4),a2
  996.  move.l a2,PointBrights
  997.  move.w 16(a1),d0
  998.  addq #1,d0
  999.  muls #80,d0
  1000.  add.l d0,a2
  1001.  move.l a2,ZoneBorderPts
  1002.  
  1003.  move.l 20+6(a1),a2
  1004.  add.l a4,a2
  1005.  move.l a2,FloorLines
  1006.  move.w -2(a2),ENDZONE
  1007.  move.l 24+6(a1),a2
  1008.  add.l a4,a2
  1009.  move.l a2,ObjectData
  1010. *****************************************
  1011. * Just for charles
  1012.  
  1013. ; move.w #$6060,6(a2)
  1014. ; move.l #$d0000,8(a2)
  1015. ; sub.w #40,4(a2)
  1016. ; move.w #45*256+45,14(a2)
  1017. ****************************************
  1018.  move.l 28+6(a1),a2
  1019.  add.l a4,a2
  1020.  move.l a2,PlayerShotData
  1021.  move.l 32+6(a1),a2
  1022.  add.l a4,a2
  1023.  move.l a2,NastyShotData
  1024.  
  1025.  add.l #64*20,a2
  1026.  move.l a2,OtherNastyData
  1027.  
  1028.  move.l 36+6(a1),a2
  1029.  add.l a4,a2
  1030.  move.l a2,ObjectPoints  
  1031.  move.l 40+6(a1),a2
  1032.  add.l a4,a2
  1033.  move.l a2,PLR1_Obj
  1034.  move.l 44+6(a1),a2
  1035.  add.l a4,a2
  1036.  move.l a2,PLR2_Obj
  1037.  move.w 14+6(a1),NumObjectPoints
  1038.  
  1039. ; bra noclips
  1040.   
  1041.  move.l LEVELCLIPS,a2
  1042.  moveq #0,d0
  1043.  move.w 10+6(a1),d7    ;numzones
  1044.  move.w d7,NUMZONES
  1045. assignclips:
  1046.  move.l (a0)+,a3
  1047.  add.l a4,a3    ; pointer to a zone
  1048.  adda.w #ToListOfGraph,a3 ; pointer to zonelist
  1049. dowholezone:
  1050.  tst.w (a3)
  1051.  blt.s nomorethiszone
  1052.  tst.w 2(a3)
  1053.  blt.s thisonenull
  1054.  
  1055.  move.l d0,d1
  1056.  asr.l #1,d1
  1057.  move.w d1,2(a3)
  1058.  
  1059. findnextclip:
  1060.  cmp.w #-2,(a2,d0.l)
  1061.  beq.s foundnextclip
  1062.  addq.l #2,d0
  1063.  bra.s findnextclip
  1064. foundnextclip
  1065.  addq.l #2,d0
  1066.  
  1067. thisonenull:
  1068.  addq #8,a3 
  1069.  bra.s dowholezone
  1070. nomorethiszone:
  1071.  dbra d7,assignclips
  1072.  
  1073.  lea (a2,d0.l),a2
  1074.  move.l a2,CONNECT_TABLE
  1075.  
  1076. noclips:
  1077.  
  1078. * Put in addresses of glowything
  1079.  
  1080.  
  1081. ************************************
  1082.  
  1083. ; cmp.b #'k',Prefsfile
  1084. ; bne.s nkb
  1085.  
  1086. ;nkb:
  1087. ; cmp.b #'m',Prefsfile
  1088. ; bne.s nmc
  1089. ; clr.b PLR1KEYS
  1090. ; clr.b PLR1PATH
  1091. ; st PLR1MOUSE
  1092. ; clr.b PLR1JOY
  1093. ;nmc:
  1094. ; cmp.b #'j',Prefsfile
  1095. ; bne.s njc
  1096. ; clr.b PLR1KEYS
  1097. ; clr.b PLR1PATH
  1098. ; clr.b PLR1MOUSE
  1099. ; st PLR1JOY
  1100. ;njc:
  1101.  
  1102.  clr.b PLR1_StoodInTop
  1103.  move.l #playerheight,PLR1s_height
  1104.  
  1105.  move.l #empty,pos1LEFT
  1106.  move.l #empty,pos2LEFT
  1107.  move.l #empty,pos1RIGHT
  1108.  move.l #empty,pos2RIGHT
  1109.  move.l #empty,pos0LEFT
  1110.  move.l #empty,pos3LEFT
  1111.  move.l #empty,pos0RIGHT
  1112.  move.l #empty,pos3RIGHT
  1113.  move.l #emptyend,Samp0endLEFT
  1114.  move.l #emptyend,Samp1endLEFT
  1115.  move.l #emptyend,Samp0endRIGHT
  1116.  move.l #emptyend,Samp1endRIGHT
  1117.  move.l #emptyend,Samp2endLEFT
  1118.  move.l #emptyend,Samp3endLEFT
  1119.  move.l #emptyend,Samp2endRIGHT
  1120.  move.l #emptyend,Samp3endRIGHT
  1121.  
  1122.  
  1123.  move.l #nullline,d0
  1124.  move.w d0,n1l
  1125.  swap d0
  1126.  move.w d0,n1h
  1127.  
  1128.  move.l Panel,d0
  1129.  move.w d0,p1l
  1130.  swap d0
  1131.  move.w d0,p1h
  1132.  swap d0
  1133.  add.l #40,d0
  1134.  move.w d0,p2l
  1135.  swap d0
  1136.  move.w d0,p2h
  1137.  swap d0
  1138.  add.l #40,d0
  1139.  move.w d0,p3l
  1140.  swap d0
  1141.  move.w d0,p3h
  1142.  swap d0
  1143.  add.l #40,d0
  1144.  move.w d0,p4l
  1145.  swap d0
  1146.  move.w d0,p4h
  1147.  swap d0
  1148.  add.l #40,d0
  1149.  move.w d0,p5l
  1150.  swap d0
  1151.  move.w d0,p5h
  1152.  swap d0
  1153.  add.l #40,d0
  1154.  move.w d0,p6l
  1155.  swap d0
  1156.  move.w d0,p6h
  1157.  swap d0
  1158.  add.l #40,d0
  1159.  move.w d0,p7l
  1160.  swap d0
  1161.  move.w d0,p7h
  1162.  swap d0
  1163.  add.l #40,d0
  1164.  move.w d0,p8l
  1165.  swap d0
  1166.  move.w d0,p8h
  1167.  
  1168. *******************************
  1169. * TIMER SCREEN SETUP
  1170. ; move.l #TimerScr,d0
  1171. ; move.w d0,p1l
  1172. ; swap d0
  1173. ; move.w d0,p1h
  1174. ; move.w #$1201,Panelcon
  1175.  
  1176. ; move.l #borders,d0
  1177. ; move.w d0,s0l
  1178. ; swap d0
  1179. ; move.w d0,s0h
  1180. ; move.l #borders+2592,d0
  1181. ; move.w d0,s1l
  1182. ; swap d0
  1183. ; move.w d0,s1h
  1184. ; move.l #borders+2592*2,d0
  1185. ; move.w d0,s2l
  1186. ; swap d0
  1187. ; move.w d0,s2h
  1188. ; move.l #borders+2592*3,d0
  1189. ; move.w d0,s3l
  1190. ; swap d0
  1191. ; move.w d0,s3h
  1192.  
  1193.  move.l #nullspr,d0
  1194.  move.w d0,s0l
  1195.  move.w d0,s1l
  1196.  move.w d0,s2l
  1197.  move.w d0,s3l
  1198.  
  1199.  move.w d0,s4l
  1200.  move.w d0,s5l
  1201.  move.w d0,s6l
  1202.  move.w d0,s7l
  1203.  swap d0
  1204.  
  1205.  move.w d0,s0h
  1206.  move.w d0,s1h
  1207.  move.w d0,s2h
  1208.  move.w d0,s3h
  1209.  
  1210.  move.w d0,s4h
  1211.  move.w d0,s5h
  1212.  move.w d0,s6h
  1213.  move.w d0,s7h 
  1214.  
  1215.  
  1216. ; move.w #52*256+64,borders
  1217. ; move.w #212*256+0,borders+8
  1218. ; move.w #52*256+64,borders+2592
  1219. ; move.w #212*256+128,borders+8+2592
  1220. ; move.w #52*256+192,borders+2592*2
  1221. ; move.w #212*256+0,borders+8+2592*2
  1222. ; move.w #52*256+192,borders+2592*3
  1223. ; move.w #212*256+128,borders+8+2592*3
  1224.  
  1225.  move.l #FacePlace,d0
  1226.  move.w d0,f1l
  1227.  swap d0
  1228.  move.w d0,f1h
  1229.  move.l #FacePlace+32*24,d0
  1230.  move.w d0,f2l
  1231.  swap d0
  1232.  move.w d0,f2h
  1233.  move.l #FacePlace+32*24*2,d0
  1234.  move.w d0,f3l
  1235.  swap d0
  1236.  move.w d0,f3h
  1237.  move.l #FacePlace+32*24*3,d0
  1238.  move.w d0,f4l
  1239.  swap d0
  1240.  move.w d0,f4h
  1241.  move.l #FacePlace+32*24*4,d0
  1242.  move.w d0,f5l
  1243.  swap d0
  1244.  move.w d0,f5h
  1245.   
  1246.  
  1247.  move.l #bigfield,d0
  1248.  move.w d0,ocl
  1249.  swap d0
  1250.  move.w d0,och
  1251.  
  1252.  bset.b #1,$bfe001
  1253.  
  1254. ; jmp stuff
  1255. ;endstuff:
  1256.  
  1257.  move.w #$00ff,$dff09e
  1258.  
  1259. ; move.l #Blurbfield,$dff080
  1260.  
  1261.  move.w #0,d0
  1262.  
  1263.  move.l scrn,d0
  1264.  move.w d0,pl1l
  1265.  swap d0
  1266.  move.w d0,pl1h
  1267.  
  1268.  swap d0
  1269.  add.l #10240,d0
  1270.  move.w d0,pl2l
  1271.  swap d0
  1272.  move.w d0,pl2h
  1273.  
  1274.  swap d0
  1275.  add.l #10240,d0
  1276.  move.w d0,pl3l
  1277.  swap d0
  1278.  move.w d0,pl3h
  1279.  
  1280.  swap d0
  1281.  add.l #10240,d0
  1282.  move.w d0,pl4l
  1283.  swap d0
  1284.  move.w d0,pl4h
  1285.  
  1286.  swap d0
  1287.  add.l #10240,d0
  1288.  move.w d0,pl5l
  1289.  swap d0
  1290.  move.w d0,pl5h
  1291.  
  1292.  swap d0
  1293.  add.l #10240,d0
  1294.  move.w d0,pl6l
  1295.  swap d0
  1296.  move.w d0,pl6h
  1297.  
  1298.  swap d0
  1299.  add.l #10240,d0
  1300.  move.w d0,pl7l
  1301.  swap d0
  1302.  move.w d0,pl7h
  1303.  
  1304.  swap d0
  1305.  add.l #10240,d0
  1306.  move.w d0,pl8l
  1307.  swap d0
  1308.  move.w d0,pl8h
  1309.  
  1310.  
  1311. ****************************
  1312.  jsr INITPLAYER
  1313. ; bsr initobjpos
  1314. ****************************
  1315.  
  1316.  
  1317.  move.l #$dff000,a6
  1318.  
  1319.  move.l #null,$dff0a0
  1320.  move.w #100,$dff0a4
  1321.  move.w #443,$dff0a6
  1322.  move.w #63,$dff0a8
  1323.  
  1324.  move.l #null2,$dff0b0
  1325.  move.w #100,$dff0b4
  1326.  move.w #443,$dff0b6
  1327.  move.w #63,$dff0b8
  1328.  
  1329.  move.l #null4,$dff0c0
  1330.  move.w #100,$dff0c4
  1331.  move.w #443,$dff0c6
  1332.  move.w #63,$dff0c8
  1333.  
  1334.  move.l #null3,$dff0d0
  1335.  move.w #100,$dff0d4
  1336.  move.w #443,$dff0d6
  1337.  move.w #63,$dff0d8
  1338.  
  1339.  ifeq CHEESEY
  1340.  
  1341.  move.l #tab,a1
  1342.  move.w #64,d7
  1343.  move.w #0,d6
  1344. outerlop
  1345.  move.l #pretab,a0
  1346.  move.w #255,d5
  1347. scaledownlop:
  1348.  move.b (a0)+,d0
  1349.  ext.w d0
  1350.  ext.l d0
  1351.  muls d6,d0
  1352.  asr.l #6,d0
  1353.  move.b d0,(a1)+
  1354.  dbra d5,scaledownlop
  1355.  addq #1,d6
  1356.  dbra d7,outerlop
  1357.  
  1358.  endc
  1359.  
  1360.  move.l #$dff000,a6
  1361.  
  1362.  move.w #$c008,intena(a6)
  1363.  
  1364.  move.w #$f,dmacon(a6)
  1365.  move.w #$820f,dmacon(a6)
  1366.  
  1367. ; bsr protinit
  1368.  
  1369.  
  1370. ; move.w #$20,$1dc(a6)
  1371.  
  1372.  move.w #$0,$dff034
  1373.  move.w #0,Conditions
  1374.  
  1375.  cmp.b #'n',mors
  1376.  beq.s .nokeys
  1377.  move.w #%111111111111,Conditions
  1378. .nokeys:
  1379.  
  1380.  move.l #KeyMap,a5
  1381.  clr.b $45(a5)
  1382.  
  1383.  move.l LEVELMUSIC,mt_data
  1384.  clr.b UseAllChannels
  1385.  
  1386. ; cmp.b #'b',Prefsfile+3
  1387. ; bne.s .noback
  1388.  
  1389. *********************************
  1390.  
  1391.  st CHANNELDATA
  1392.  jsr mt_init
  1393.  
  1394. *********************************
  1395.  
  1396.  
  1397. ;.noback:
  1398.  
  1399.  
  1400. ;
  1401. ; clr.b CHANNELDATA
  1402. ; clr.b CHANNELDATA+8
  1403. ; clr.b CHANNELDATA+16
  1404. ; clr.b CHANNELDATA+24
  1405. ;
  1406. ; cmp.b #'b',Prefsfile+3
  1407. ; bne.s noreserve
  1408. ;
  1409.  st CHANNELDATA
  1410.  st CHANNELDATA+8
  1411. ; st CHANNELDATA+16
  1412. ; st CHANNELDATA+24
  1413. ;noreserve: 
  1414.  
  1415. ; st CHANNELDATA
  1416. ; st CHANNELDATA+8
  1417.  
  1418.  move.l SampleList+6*8,pos0LEFT
  1419.  move.l SampleList+6*8+4,Samp0endLEFT
  1420.  move.l #playerheight,PLR1s_targheight
  1421.  move.l #playerheight,PLR1s_height
  1422.  move.l #playerheight,PLR2s_targheight
  1423.  move.l #playerheight,PLR2s_height
  1424.  
  1425. ; cmp.b #'n',mors
  1426. ; beq.s nohandshake
  1427. ;
  1428. ; move.b #%11011000,$bfd200
  1429. ; move.b #%00010000,$bfd000
  1430. ;waitloop:
  1431. ; btst.b #4,$bfd000
  1432. ; bne.s waitloop
  1433. ; move.b #%11000000,$bfd200
  1434.  
  1435. ;wtmouse:
  1436. ; btst #6,$bfe001
  1437. ; bne.s wtmouse
  1438.  
  1439. ;nohandshake:
  1440.  
  1441. ; jmp end
  1442.  
  1443. ; move.l COPSCRN1,drawpt
  1444. ; move.l COPSCRN2,olddrawpt
  1445.  
  1446.  jsr CLEARKEYBOARD
  1447. ; jsr MAKEBACKROUT
  1448.  
  1449.  clr.b MASTERQUITTING
  1450.  
  1451.  cmp.b #'n',mors
  1452.  seq SLAVEQUITTING
  1453.  
  1454. ; move.w #200,PLAYERTWOHEALTH
  1455. ; move.w #200,PLAYERONEHEALTH
  1456.  
  1457. ; move.l #ANOTHERSUP,$80
  1458. ; trap #0
  1459. ; rts
  1460. ;
  1461. ;ANOTHERSUP:
  1462.  
  1463.  move.l $4.w,a6
  1464.  jsr _LVOSuperState(a6)
  1465.  move.l d0,SSTACK
  1466.  
  1467.  CACHE_FREEZE_OFF d2
  1468.  
  1469. ; charlie
  1470. ; DATA_CACHE_ON d2
  1471.  
  1472.  DataCacheOn
  1473.  
  1474.  move.l $4.w,a6
  1475.  move.l SSTACK,d0
  1476.  jsr _LVOUserState(a6)
  1477.  
  1478.  move.l #0,hitcol
  1479.  
  1480.  cmp.b #'n',mors
  1481.  bne.s NOCLTXT
  1482.  
  1483.  move.b #0,lastpressed
  1484. .wtpress
  1485.  btst #6,$bfe001
  1486.  beq.s CLOSETXT
  1487.  btst #7,$bfe001
  1488.  beq.s CLOSETXT
  1489.  tst.b lastpressed
  1490.  beq.s .wtpress
  1491.  
  1492. CLOSETXT:
  1493.  
  1494.  move.w #$8f8,d0
  1495.  move.w #7,d1
  1496.  
  1497. .fdup
  1498.  move.w d0,TXTCOLL
  1499.  move.w d0,MIXCOLL
  1500.  sub.w #$121,d0
  1501. .wtframe:
  1502.  btst #5,$dff000+intreqrl
  1503.  beq.s .wtframe
  1504.  move.w #$0020,$dff000+intreq
  1505.  dbra d1,.fdup
  1506.  
  1507.  move.w #0,TXTCOLL
  1508.  move.w #0,MIXCOLL
  1509.  
  1510. NOCLTXT:
  1511.  
  1512.  
  1513.  
  1514.     move.l    4.w,a6
  1515.     jsr    _LVOForbid(a6)
  1516. ;    jsr    _LVODisable(a6)
  1517.  
  1518.  
  1519. ;    move.w    #%0111111111111111,intena+$dff000
  1520. ;    move.w    #%1000000011111111,intena+$dff000
  1521.  
  1522.  
  1523. ;charlie 
  1524.  move.l #PALETTEBIT,$dff084
  1525.  move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1526.  
  1527.  
  1528.  clr.b PLR1_Ducked
  1529.  clr.b PLR2_Ducked
  1530.  clr.b p1_ducked
  1531.  clr.b p2_ducked
  1532.  
  1533. ********************************************
  1534.  
  1535. ;    jmp docredits
  1536.  
  1537. ********************************************
  1538.  
  1539.  
  1540.  st doanything
  1541.  st dosounds
  1542.  
  1543.  jsr CLRNASTYMEM
  1544.  
  1545.  move.l #COMPACTMAP,a0
  1546.  move.l a0,LASTZONE
  1547.  move.w #255,d0
  1548. .clrmap
  1549.  move.l #0,(a0)+
  1550.  dbra d0,.clrmap
  1551.  
  1552.  move.l #COMPACTMAP,a0
  1553.  move.l #BIGMAP,a1
  1554.  
  1555.  bra NOALLWALLS
  1556.  
  1557.  move.l ZoneGraphAdds,a2
  1558. DOALLWALLS:
  1559.  move.l (a2),d0
  1560.  beq.s nomorezones
  1561.  move.l d0,a3
  1562.  
  1563.  addq #8,a2
  1564.  
  1565.  add.l LEVELGRAPHICS,a3
  1566.  addq #2,a3
  1567.  move.l a1,a4
  1568.  
  1569. ; DOLOWERROOM
  1570.  
  1571. innerwalls:
  1572.  move.b (a3),d1
  1573.  move.b 1(a3),d0
  1574.  bne doneinner
  1575.  
  1576.  tst.b d1
  1577.  blt noid
  1578.  
  1579.  move.b d1,d3
  1580.  and.w #15,d1
  1581.  
  1582.  moveq #0,d0
  1583.  move.w d1,d2
  1584.  add.w d1,d1
  1585.  add.w d2,d1
  1586.  addq #1,d1
  1587.  bset d1,d0
  1588.  btst #4,d3
  1589.  beq.s .nodoor
  1590.  addq #1,d1
  1591.  bset d1,d0
  1592. .nodoor
  1593.  
  1594.  or.l d0,(a0)
  1595.  
  1596.  move.w 2(a3),(a4)
  1597.  move.w 4(a3),2(a4)
  1598.  
  1599. noid:
  1600.  
  1601.  add.w #30,a3
  1602.  addq #4,a4
  1603.  
  1604.  bra innerwalls
  1605.  
  1606. doneinner:
  1607.  
  1608.  add.w #40,a1
  1609.  addq #4,a0
  1610.  
  1611.  bra DOALLWALLS
  1612. nomorezones:
  1613.  
  1614. NOALLWALLS
  1615.  
  1616.  move.w #96,MIDDLEX
  1617.  move.w #192,RIGHTX
  1618.  move.w #160,BOTTOMY
  1619.  move.w #80,TOTHEMIDDLE
  1620.  clr.b FULLSCR
  1621.  move.l scrn,a0
  1622.  jsr WIPEDISPLAY
  1623.  move.l scrn2,a0
  1624.  jsr WIPEDISPLAY
  1625.  
  1626.  st PLAYERONEGUNS+1
  1627.  st PLAYERTWOGUNS+1
  1628.  
  1629.  move.w #100,timetodamage
  1630.  
  1631.  move.w #299,d0
  1632.  move.l #DAMAGED,a0
  1633. CLRDAM:
  1634.  move.w #0,(a0)+
  1635.  dbra d0,CLRDAM
  1636.  
  1637.  moveq #0,d0
  1638.  move.w d0,STOPOFFSET
  1639.  neg.w d0
  1640.  add.w TOTHEMIDDLE,d0
  1641.  move.w d0,SMIDDLEY
  1642.  muls #320,d0
  1643.  move.l d0,SBIGMIDDLEY
  1644.  
  1645.  move.w #0,PLR1_AIMSPD
  1646.  move.w #0,PLR2_AIMSPD
  1647.  
  1648.  move.l scrn,SCRNSHOWPT
  1649.  
  1650.  move.l scrn2,SCRNDRAWPT
  1651.  
  1652.  
  1653.  
  1654.  move.l #MESSAGEBUFFER,a0
  1655.  move.w #19,d0
  1656. clrmessbuff:
  1657.  move.l #0,(a0)+
  1658.  dbra d0,clrmessbuff
  1659.  
  1660.  move.l #nullmessage,d0
  1661.  jsr SENDMESSAGE
  1662.  
  1663.  clr.b PLR2_fire
  1664.  clr.b p2_fire
  1665.  clr.b PLR2_SPCTAP
  1666.  clr.b p2_spctap
  1667.  
  1668.  clr.b PLR1_dead
  1669.  clr.b PLR2_dead
  1670.  
  1671.  move.l PLR1_Obj,a0
  1672.  move.l PLR2_Obj,a1
  1673.  move.w #0,ImpactX(a0)
  1674.  move.w #0,ImpactY(a0)
  1675.  move.w #0,ImpactZ(a0)
  1676.  move.w #0,ImpactX(a1)
  1677.  move.w #0,ImpactY(a1)
  1678.  move.w #0,ImpactZ(a1)
  1679.  
  1680.  move.l #0,PLR1s_xspdval
  1681.  move.l #0,PLR1s_zspdval
  1682.  move.l #0,PLR1s_yvel
  1683.  move.l #0,PLR2s_xspdval
  1684.  move.l #0,PLR2s_zspdval
  1685.  move.l #0,PLR2s_yvel
  1686.  move.l #0,PLR1_xspdval
  1687.  move.l #0,PLR1_zspdval
  1688.  move.l #0,PLR1_yvel
  1689.  move.l #0,PLR2_xspdval
  1690.  move.l #0,PLR2_zspdval
  1691.  move.l #0,PLR2_yvel
  1692.  
  1693.  
  1694. lop:
  1695.  move.w #%110000000000,$dff034
  1696.  
  1697.  cmp.b #'m',mors
  1698.  bne .notmess
  1699.  tst.b PLR2_dead
  1700.  bne .notmess
  1701.  
  1702.  tst.w PLAYERTWOHEALTH
  1703.  bgt .notmess
  1704.  
  1705.  st PLR2_dead
  1706.  
  1707.  jsr GetRand
  1708.  swap d0
  1709.  clr.w d0
  1710.  swap d0
  1711.  divs #9,d0
  1712.  swap d0
  1713.  muls #160,d0
  1714.  add.l #IVEWONTEXT,d0
  1715.  jsr SENDMESSAGE
  1716.  
  1717.  move.l PLR2_Obj,a0
  1718.  
  1719.  move.l LINKFILE,a6
  1720.  add.l #PLR2ALIEN,a6
  1721.  move.w (a6),d7
  1722.  move.w d7,d1
  1723.  move.l LINKFILE,a6
  1724.  add.l #AlienStats,a6
  1725.  muls #AlienStatLen,d1
  1726.  add.l d1,a6
  1727.  
  1728.  move.b A_TypeOfSplat+1(a6),d0
  1729.  move.b d0,TypeOfSplat
  1730.  
  1731.  move.l PLR2_Roompt,a1
  1732.  move.w (a1),12(a0)
  1733.  move.w p2_xoff,newx
  1734.  move.w p2_zoff,newz
  1735.  move.w #7,d2
  1736.  jsr ExplodeIntoBits
  1737.  move.w #-1,12(a0)
  1738.  
  1739. .notmess:
  1740.  
  1741.  cmp.b #'s',mors
  1742.  bne .notmess2
  1743.  tst.b PLR1_dead
  1744.  bne .notmess2
  1745.  
  1746.  tst.w PLAYERONEHEALTH
  1747.  bgt .notmess2
  1748.  
  1749.  st PLR1_dead
  1750.  
  1751.  jsr GetRand
  1752.  swap d0
  1753.  clr.w d0
  1754.  swap d0
  1755.  divs #9,d0
  1756.  swap d0
  1757.  muls #160,d0
  1758.  add.l #IVEWONTEXT,d0
  1759.  jsr SENDMESSAGE
  1760.  
  1761.  move.l PLR1_Obj,a0
  1762.  
  1763.  move.l LINKFILE,a6
  1764.  add.l #PLR1ALIEN,a6
  1765.  move.w (a6),d7
  1766.  move.w d7,d1
  1767.  move.l LINKFILE,a6
  1768.  add.l #AlienStats,a6
  1769.  muls #AlienStatLen,d1
  1770.  add.l d1,a6
  1771.  
  1772.  move.b A_TypeOfSplat+1(a6),d0
  1773.  move.b d0,TypeOfSplat
  1774.  
  1775.  move.l PLR1_Roompt,a1
  1776.  move.w (a1),12(a0)
  1777.  move.w p1_xoff,newx
  1778.  move.w p1_zoff,newz
  1779.  move.w #7,d2
  1780.  jsr ExplodeIntoBits
  1781.  move.w #-1,12(a0) 
  1782. .notmess2:
  1783.  
  1784.  
  1785.  move.w #%110000000000,$dff034
  1786.  
  1787. ; move.w COUNTER,d0
  1788. ; ext.l d0
  1789. ; divs #10,d0
  1790. ; swap d0
  1791. ; add.b #'0',d0
  1792. ; move.b d0,COUNTSPACE+2
  1793. ; swap d0
  1794. ; ext.l d0
  1795. ; divs #10,d0
  1796. ; swap d0
  1797. ; add.b #'0',d0
  1798. ; move.b d0,COUNTSPACE+1
  1799. ; swap d0
  1800. ; add.b #'0',d0
  1801. ; move.b d0,COUNTSPACE
  1802. ;
  1803. ; move.w COUNTER2,d0
  1804. ; ext.l d0
  1805. ; divs #10,d0
  1806. ; swap d0
  1807. ; add.b #'0',d0
  1808. ; move.b d0,COUNTSPACE+5
  1809. ; swap d0
  1810. ; ext.l d0
  1811. ; divs #10,d0
  1812. ; swap d0
  1813. ; add.b #'0',d0
  1814. ; move.b d0,COUNTSPACE+4
  1815. ; swap d0
  1816. ; add.b #'0',d0
  1817. ; move.b d0,COUNTSPACE+3
  1818.  
  1819. ;
  1820. ; move.l #COUNTSPACE,d0
  1821. ; jsr SENDMESSAGE
  1822. ;
  1823. ; move.w #0,COUNTER
  1824. ; move.w #0,COUNTER2
  1825.  
  1826.  move.b MAPON,REALMAPON
  1827.  
  1828.  move.b FULLSCRTEMP,d0
  1829.  move.b FULLSCR,d1
  1830.  eor.b d1,d0
  1831.  beq .notswapscr2
  1832.  
  1833.  move.b FULLSCRTEMP,FULLSCR
  1834.  beq.s .notswapscr3
  1835.  
  1836.  cmp.w #100,WIDESCRN
  1837.  blt.s .okwidee
  1838.  move.w #100,WIDESCRN
  1839. .okwidee:
  1840.  
  1841.  move.w #144,MIDDLEX
  1842.  move.w #288,RIGHTX
  1843.  move.w #232,BOTTOMY
  1844.  move.w #120,TOTHEMIDDLE
  1845.  move.l SCRNSHOWPT,a0
  1846.  jsr WIPEDISPLAY
  1847.  move.l SCRNDRAWPT,a0
  1848.  jsr WIPEDISPLAY
  1849.  
  1850.  bra.s .notswapscr2
  1851.  
  1852. .notswapscr3:
  1853.  cmp.w #60,WIDESCRN
  1854.  blt.s .okwide
  1855.  move.w #60,WIDESCRN
  1856. .okwide:
  1857.  
  1858.  
  1859.  move.w #96,MIDDLEX
  1860.  move.w #192,RIGHTX
  1861.  move.w #160,BOTTOMY
  1862.  move.w #80,TOTHEMIDDLE
  1863.  move.l SCRNSHOWPT,a0
  1864.  jsr WIPEDISPLAY
  1865.  move.l SCRNDRAWPT,a0
  1866.  jsr WIPEDISPLAY
  1867. .notswapscr2:
  1868.  
  1869.  
  1870.  btst #6,$bfe001
  1871. ;charlie bne.b .nocop
  1872.  
  1873. ;charlie move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1874.  
  1875. .nocop
  1876.  
  1877.  move.l #KeyMap,a5
  1878.  
  1879.  cmp.b #'n',mors
  1880.  bne .nopause
  1881.  tst.b $19(a5)
  1882.  beq.s .nopause
  1883.  clr.b doanything
  1884.  
  1885. .waitrel:
  1886.  
  1887.  tst.b PLR1JOY
  1888.  beq.s .NOJOY
  1889.  jsr _ReadJoy1
  1890. .NOJOY
  1891.  
  1892.  tst.b $19(a5)
  1893.  bne.s .waitrel
  1894.  
  1895.  bsr PAUSEOPTS
  1896.  
  1897.  st doanything
  1898. .nopause: 
  1899.  
  1900.  move.l hitcol,d0
  1901.  move.l d0,d1
  1902.  
  1903. ********************************************
  1904. * Remove after colour testing 
  1905. ; moveq #0,d1
  1906. ********************************************
  1907.  
  1908.  add.l #PALETTEBIT,d1
  1909.  tst.l d0
  1910.  beq.s nofadedownhc
  1911.  sub.l #2116,d0
  1912.  move.l d0,hitcol
  1913. nofadedownhc:
  1914.  
  1915.  move.l d1,a0
  1916.  move.l #PALETTESPACE,a1
  1917.  move.l #(2116/4)-2,d0
  1918. putinpal:
  1919.  move.l (a0)+,(a1)+
  1920.  dbra d0,putinpal
  1921.  
  1922.  st READCONTROLS
  1923.  move.l #$dff000,a6
  1924.  
  1925.  
  1926.  cmp.b #'n',mors
  1927.  beq .nopause
  1928.  
  1929.  move.b SLAVEPAUSE,d0
  1930.  or.b MASTERPAUSE,d0
  1931.  beq.s .nopause
  1932.  clr.b doanything
  1933.  
  1934.  move.l #KeyMap,a5
  1935. .waitrel:
  1936.  
  1937.  cmp.b #'s',mors
  1938.  beq.s .RE2
  1939.  tst.b PLR1JOY
  1940.  beq.s .NOJOY
  1941.  jsr _ReadJoy1
  1942.  bra .RE1
  1943. .RE2:
  1944.  tst.b PLR2JOY
  1945.  beq.s .NOJOY
  1946.  jsr _ReadJoy2
  1947. .RE1
  1948. .NOJOY:
  1949.  tst.b $19(a5)
  1950.  bne.s .waitrel
  1951.  
  1952.  bsr PAUSEOPTS
  1953.  
  1954.  cmp.b #'m',mors
  1955.  bne.s .slavelast
  1956.  Jsr SENDFIRST
  1957.  bra .masfirst
  1958. .slavelast
  1959.  Jsr RECFIRST
  1960. .masfirst:
  1961.  clr.b SLAVEPAUSE
  1962.  clr.b MASTERPAUSE
  1963.  st doanything
  1964.  
  1965. .nopause: 
  1966.  
  1967.  
  1968.  move.l drawpt,d0
  1969.  move.l olddrawpt,drawpt
  1970.  move.l d0,olddrawpt
  1971.  
  1972.  move.l SCRNDRAWPT,d0
  1973.  move.l SCRNSHOWPT,SCRNDRAWPT
  1974.  move.l d0,SCRNSHOWPT
  1975.  
  1976. ; move.l d0,$dff084    
  1977.  move.l drawpt,a3
  1978. ; move.l COPSCRNBUFF,a3
  1979.  adda.w #10,a3
  1980.  move.l a3,frompt
  1981.  add.l #104*4*40,a3
  1982.  move.l a3,midpt
  1983.  
  1984.  cmp.b #'s',mors
  1985.  beq.s nowaitslave
  1986.  
  1987. waitfortop:
  1988.  
  1989.  btst.b #0,intreqrl(a6)
  1990.  beq.b waitfortop
  1991.  
  1992.  move.w #$1,intreq(a6)
  1993. ; move.l #PLR1_GunData,GunData
  1994.  move.b PLR1_GunSelected,GunSelected
  1995.  bra waitmaster
  1996.  
  1997. nowaitslave:
  1998. ; move.l #PLR2_GunData,GunData
  1999.  move.b PLR2_GunSelected,GunSelected
  2000. waitmaster:
  2001.  
  2002.  move.l d0,d1
  2003.  move.l d1,d0
  2004.  move.w d0,pl1l
  2005.  swap d0
  2006.  move.w d0,pl1h
  2007.  
  2008.  add.l #10240,d1
  2009.  move.l d1,d0
  2010.  move.w d0,pl2l
  2011.  swap d0
  2012.  move.w d0,pl2h
  2013.  
  2014.  add.l #10240,d1
  2015.  move.l d1,d0
  2016.  move.w d0,pl3l
  2017.  swap d0
  2018.  move.w d0,pl3h
  2019.  
  2020.  add.l #10240,d1
  2021.  move.l d1,d0
  2022.  move.w d0,pl4l
  2023.  swap d0
  2024.  move.w d0,pl4h
  2025.  
  2026.  add.l #10240,d1
  2027.  move.l d1,d0
  2028.  move.w d0,pl5l
  2029.  swap d0
  2030.  move.w d0,pl5h
  2031.  
  2032.  add.l #10240,d1
  2033.  move.l d1,d0
  2034.  move.w d0,pl6l
  2035.  swap d0
  2036.  move.w d0,pl6h
  2037.  
  2038.  add.l #10240,d1
  2039.  move.l d1,d0
  2040.  move.w d0,pl7l
  2041.  swap d0
  2042.  move.w d0,pl7h
  2043.  
  2044.  add.l #10240,d1
  2045.  move.l d1,d0
  2046.  move.w d0,pl8l
  2047.  swap d0
  2048.  move.w d0,pl8h 
  2049.  
  2050.  move.l #SMIDDLEY,a0
  2051.  movem.l (a0)+,d0/d1
  2052.  move.l d0,MIDDLEY
  2053.  move.l d1,MIDDLEY+4
  2054.  
  2055.  move.l waterpt,a0
  2056.  move.l (a0)+,watertouse
  2057.  cmp.l #endwaterlist,a0
  2058.  blt.s okwat
  2059.  move.l #waterlist,a0
  2060. okwat:
  2061.  move.l a0,waterpt
  2062.  
  2063.  add.w #640,wtan
  2064.  and.w #8191,wtan
  2065.  add.l #1,wateroff
  2066.  and.l #$3fff3fff,wateroff
  2067.  
  2068.  move.l PLR1_xoff,OLDX1
  2069.  move.l PLR1_zoff,OLDZ1
  2070.  move.l PLR2_xoff,OLDX2
  2071.  move.l PLR2_zoff,OLDZ2
  2072.  
  2073.  move.l #$dff000,a6
  2074.  
  2075.  cmp.b #'s',mors
  2076.  beq ASlaveShouldWaitOnHisMaster
  2077.  
  2078.  cmp.b #'n',mors
  2079.  bne NotOnePlayer
  2080.  
  2081.  movem.l d0-d7/a0-a6,-(a7)
  2082.  
  2083.  moveq #0,d0
  2084.  move.b GunSelected,d0
  2085.  move.l LINKFILE,a6
  2086.  add.l #GunBulletTypes,a6
  2087.  move.w (a6,d0.w*8),d0
  2088.  
  2089.  move.l #PLAYERONEAMMO,a6
  2090.  move.w (a6,d0.w*2),d0
  2091.  move.w d0,Ammo
  2092.  movem.l (a7)+,d0-d7/a0-a6
  2093.  
  2094.  move.w PLAYERONEHEALTH,Energy
  2095.  
  2096.  move.w FramesToDraw,TempFrames
  2097.  cmp.w #15,TempFrames
  2098.  blt.s .okframe
  2099.  move.w #15,TempFrames
  2100. .okframe:
  2101.  move.w #0,FramesToDraw
  2102.  
  2103. *********************************************
  2104. *********** TAKE THIS OUT *******************
  2105. *********************************************
  2106.  
  2107.  move.l CHEATPTR,a4
  2108.  add.l #200000,a4
  2109.  moveq #0,d0
  2110.  move.b (a4),d0
  2111.  
  2112.  move.l #KeyMap,a5
  2113.  tst.b (a5,d0.w)
  2114.  beq.s .nocheat
  2115.  
  2116.  addq #1,a4
  2117.  cmp.l #ENDCHEAT,a4
  2118.  blt.s .nocheat
  2119.  cmp.w #0,CHEATNUM
  2120.  beq.s .nocheat
  2121.  sub.w #1,CHEATNUM
  2122.  move.l #CHEATFRAME,a4
  2123.  move.w #127,PLR1_energy
  2124.  jsr EnergyBar
  2125. .nocheat
  2126.  
  2127.  sub.l #200000,a4
  2128.  move.l a4,CHEATPTR
  2129.  
  2130. **********************************************
  2131. **********************************************
  2132. **********************************************
  2133.  
  2134.  move.l PLR1s_xoff,p1_xoff
  2135.  move.l PLR1s_zoff,p1_zoff
  2136.  move.l PLR1s_yoff,p1_yoff
  2137.  move.l PLR1s_height,p1_height
  2138.  move.w PLR1s_angpos,p1_angpos
  2139.  move.w PLR1_bobble,p1_bobble
  2140.  move.b PLR1_clicked,p1_clicked
  2141.  move.b PLR1_fire,p1_fire
  2142.  clr.b PLR1_clicked
  2143.  move.b PLR1_SPCTAP,p1_spctap
  2144.  clr.b PLR1_SPCTAP
  2145.  move.b PLR1_Ducked,p1_ducked
  2146.  move.b PLR1_GunSelected,p1_gunselected
  2147.  
  2148.  bsr PLR1_Control
  2149.  
  2150.  move.l PLR1_Roompt,a0
  2151.  move.l ToZoneRoof(a0),SplitHeight
  2152.  move.w p1_xoff,THISPLRxoff
  2153.  move.w p1_zoff,THISPLRzoff
  2154.  
  2155.  
  2156.  move.l #$60000,p2_yoff
  2157.  move.l PLR2_Obj,a0
  2158.  move.w #-1,GraphicRoom(a0)
  2159.  move.w #-1,12(a0)
  2160.  move.b #0,17(a0)
  2161.  move.l #BollocksRoom,PLR2_Roompt
  2162.  
  2163.  bra donetalking
  2164.  
  2165. NotOnePlayer:
  2166.  move.l #KeyMap,a5
  2167.  tst.b $19(a5)
  2168.  sne MASTERPAUSE
  2169.  
  2170. *********************************
  2171.  move.w PLAYERONEHEALTH,Energy
  2172. ; change this back
  2173. *********************************
  2174.  movem.l d0-d7/a0-a6,-(a7)
  2175.  
  2176.  moveq #0,d0
  2177.  move.b GunSelected,d0
  2178.  move.l LINKFILE,a6
  2179.  add.l #GunBulletTypes,a6
  2180.  move.w (a6,d0.w*8),d0
  2181.  
  2182.  move.l #PLAYERONEAMMO,a6
  2183.  move.w (a6,d0.w*2),d0
  2184.  move.w d0,Ammo
  2185.  movem.l (a7)+,d0-d7/a0-a6
  2186.  
  2187.  jsr SENDFIRST
  2188.  
  2189.  move.w FramesToDraw,TempFrames
  2190.  cmp.w #15,TempFrames
  2191.  blt.s .okframe
  2192.  move.w #15,TempFrames
  2193. .okframe:
  2194.  move.w #0,FramesToDraw
  2195.  
  2196.  move.l PLR1s_xoff,p1_xoff
  2197.  move.l PLR1s_zoff,p1_zoff
  2198.  move.l PLR1s_yoff,p1_yoff
  2199.  move.l PLR1s_height,p1_height
  2200.  move.w PLR1s_angpos,p1_angpos
  2201.  move.w PLR1_bobble,p1_bobble
  2202.  move.b PLR1_clicked,p1_clicked
  2203.  clr.b PLR1_clicked
  2204.  move.b PLR1_fire,p1_fire
  2205.  move.b PLR1_SPCTAP,p1_spctap
  2206.  clr.b PLR1_SPCTAP
  2207.  move.b PLR1_Ducked,p1_ducked
  2208.  move.b PLR1_GunSelected,p1_gunselected
  2209.  
  2210.  move.l PLR1_AIMSPD,d0
  2211.  jsr SENDFIRST
  2212.  move.l d0,PLR2_AIMSPD
  2213.  
  2214.  move.l p1_xoff,d0
  2215.  jsr SENDFIRST
  2216.  move.l d0,p2_xoff
  2217.  
  2218.  move.l p1_zoff,d0
  2219.  jsr SENDFIRST
  2220.  move.l d0,p2_zoff 
  2221.  
  2222.  move.l p1_yoff,d0
  2223.  jsr SENDFIRST
  2224.  move.l d0,p2_yoff
  2225.   
  2226.  move.l p1_height,d0
  2227.  jsr SENDFIRST
  2228.  move.l d0,p2_height
  2229.  
  2230.  move.w p1_angpos,d0
  2231.  swap d0
  2232.  move.w p1_bobble,d0
  2233.  jsr SENDFIRST
  2234.  move.w d0,p2_bobble
  2235.  swap d0
  2236.  move.w d0,p2_angpos
  2237.  
  2238.  
  2239.  move.w TempFrames,d0
  2240.  swap d0
  2241.  move.b p1_spctap,d0
  2242.  lsl.w #8,d0
  2243.  move.b p1_clicked,d0
  2244.  jsr SENDFIRST
  2245.  move.b d0,p2_clicked
  2246.  lsr.w #8,d0
  2247.  move.b d0,p2_spctap
  2248.  
  2249.  move.w Rand1,d0
  2250.  swap d0
  2251.  move.b p1_ducked,d0
  2252.  or.b PLR1_Squished,d0
  2253.  lsl.w #8,d0
  2254.  move.b p1_gunselected,d0
  2255.  jsr SENDFIRST
  2256.  move.b d0,p2_gunselected
  2257.  lsr.w #8,d0
  2258.  move.b d0,p2_ducked
  2259.  
  2260.  move.b p1_fire,d0
  2261.  lsl.w #8,d0
  2262.  move.b MASTERQUITTING,d0
  2263.  or.b d0,SLAVEQUITTING
  2264.  swap d0
  2265.  move.b MASTERPAUSE,d0
  2266.  or.b d0,SLAVEPAUSE
  2267.  jsr SENDFIRST
  2268.  or.b d0,MASTERPAUSE
  2269.  or.b d0,SLAVEPAUSE
  2270.  swap d0
  2271.  or.b d0,SLAVEQUITTING
  2272.  or.b d0,MASTERQUITTING
  2273.  lsr.w #8,d0
  2274.  move.b d0,p2_fire
  2275.  
  2276.  move.w PLAYERONEHEALTH,d0
  2277.  jsr SENDFIRST
  2278.  move.w d0,PLAYERTWOHEALTH
  2279.  
  2280.  bsr PLR1_Control
  2281.  bsr PLR2_Control
  2282.  move.l PLR1_Roompt,a0
  2283.  move.l ToZoneRoof(a0),SplitHeight
  2284.  move.w p1_xoff,THISPLRxoff
  2285.  move.w p1_zoff,THISPLRzoff
  2286.  
  2287.  bra donetalking
  2288.  
  2289. ASlaveShouldWaitOnHisMaster:
  2290.  
  2291.  move.l #KeyMap,a5
  2292.  tst.b $19(a5)
  2293.  sne SLAVEPAUSE
  2294.  
  2295.  movem.l d0-d7/a0-a6,-(a7)
  2296.  
  2297.  moveq #0,d0
  2298.  move.b GunSelected,d0
  2299.  move.l LINKFILE,a6
  2300.  add.l #GunBulletTypes,a6
  2301.  move.w (a6,d0.w*8),d0
  2302.  
  2303.  move.l #PLAYERTWOAMMO,a6
  2304.  move.w (a6,d0.w*2),d0
  2305.  move.w d0,Ammo
  2306.  movem.l (a7)+,d0-d7/a0-a6
  2307.  
  2308.  move.w PLAYERTWOHEALTH,Energy
  2309.  
  2310.  jsr RECFIRST
  2311.  
  2312.  
  2313.  
  2314.  
  2315.  
  2316.  
  2317.  
  2318.  
  2319.  move.l PLR2s_xoff,p2_xoff
  2320.  move.l PLR2s_zoff,p2_zoff
  2321.  move.l PLR2s_yoff,p2_yoff
  2322.  move.l PLR2s_height,p2_height
  2323.  move.w PLR2s_angpos,p2_angpos
  2324.  move.w PLR2_bobble,p2_bobble
  2325.  move.b PLR2_clicked,p2_clicked
  2326.  clr.b PLR2_clicked
  2327.  move.b PLR2_fire,p2_fire
  2328.  move.b PLR2_SPCTAP,p2_spctap
  2329.  clr.b PLR2_SPCTAP
  2330.  move.b PLR2_Ducked,p2_ducked
  2331.  move.b PLR2_GunSelected,p2_gunselected
  2332.  
  2333.  move.l PLR2_AIMSPD,d0
  2334.  jsr RECFIRST
  2335.  move.l d0,PLR1_AIMSPD
  2336.  
  2337.  move.l p2_xoff,d0
  2338.  jsr RECFIRST
  2339.  move.l d0,p1_xoff
  2340.  
  2341.  move.l p2_zoff,d0
  2342.  jsr RECFIRST
  2343.  move.l d0,p1_zoff
  2344.  
  2345.  move.l p2_yoff,d0
  2346.  jsr RECFIRST
  2347.  move.l d0,p1_yoff
  2348.  
  2349.  move.l p2_height,d0
  2350.  jsr RECFIRST
  2351.  move.l d0,p1_height
  2352.  
  2353.  move.w p2_angpos,d0
  2354.  swap d0
  2355.  move.w p2_bobble,d0
  2356.  jsr RECFIRST
  2357.  move.w d0,p1_bobble
  2358.  swap d0
  2359.  move.w d0,p1_angpos
  2360.  
  2361.  
  2362.  move.b p2_spctap,d0
  2363.  lsl.w #8,d0
  2364.  move.b p2_clicked,d0
  2365.  jsr RECFIRST
  2366.  move.b d0,p1_clicked
  2367.  lsr.w #8,d0
  2368.  move.b d0,p1_spctap
  2369.  swap d0
  2370.  move.w d0,TempFrames
  2371.  
  2372.  move.b p2_ducked,d0
  2373.  or.b PLR2_Squished,d0
  2374.  lsl.w #8,d0
  2375.  move.b p2_gunselected,d0
  2376.  jsr RECFIRST
  2377.  move.b d0,p1_gunselected
  2378.  lsr.w #8,d0
  2379.  move.b d0,p1_ducked
  2380.  swap d0
  2381.  move.w d0,Rand1
  2382.  
  2383.  move.b p2_fire,d0
  2384.  lsl.w #8,d0
  2385.  move.b SLAVEQUITTING,d0
  2386.  or.b d0,MASTERQUITTING
  2387.  swap d0
  2388.  move.b SLAVEPAUSE,d0
  2389.  or.b d0,MASTERPAUSE
  2390.  jsr RECFIRST
  2391.  or.b d0,MASTERPAUSE
  2392.  or.b d0,SLAVEPAUSE
  2393.  swap d0
  2394.  or.b d0,SLAVEQUITTING
  2395.  or.b d0,MASTERQUITTING
  2396.  lsr.w #8,d0
  2397.  move.b d0,p1_fire
  2398.  
  2399.  move.w PLAYERTWOHEALTH,d0
  2400.  jsr RECFIRST
  2401.  move.w d0,PLAYERONEHEALTH
  2402.  
  2403.  bsr PLR1_Control
  2404.  bsr PLR2_Control
  2405.  move.w p2_xoff,THISPLRxoff
  2406.  move.w p2_zoff,THISPLRzoff
  2407.  move.l PLR2_Roompt,a0
  2408.  move.l ToZoneRoof(a0),SplitHeight
  2409.  
  2410. donetalking:
  2411.  
  2412.  
  2413.  move.l #ZoneBrightTable,a1
  2414.  move.l ZoneAdds,a2
  2415.  move.l PLR2_ListOfGraphRooms,a0
  2416. ; move.l PLR2_PointsToRotatePtr,a5
  2417.  move.l a0,a5
  2418.  cmp.b #'s',mors
  2419.  beq.s doallz
  2420.  move.l PLR1_ListOfGraphRooms,a0
  2421. ; move.l PLR1_PointsToRotatePtr,a5
  2422.  move.l a0,a5 
  2423. doallz
  2424.  move.w (a0),d0
  2425.  blt.s doneallz
  2426.  add.w #8,a0
  2427.  
  2428.  move.l (a2,d0.w*4),a3
  2429.  add.l LEVELDATA,a3
  2430.  move.w ToZoneBrightness(a3),d2
  2431.  
  2432.  blt.s justbright
  2433.  move.w d2,d3
  2434.  lsr.w #8,d3
  2435.  tst.b d3
  2436.  beq.s justbright
  2437.  
  2438.  move.l #BrightAnimTable,a4
  2439.  move.w -2(a4,d3.w*2),d2
  2440.  
  2441. justbright:
  2442.  muls #32,d2
  2443.  divs #20,d2
  2444.  move.w d2,(a1,d0.w*4)
  2445.  
  2446.  move.w ToUpperBrightness(a3),d2
  2447.  
  2448.  blt.s justbright2
  2449.  move.w d2,d3
  2450.  lsr.w #8,d3
  2451.  tst.b d3
  2452.  beq.s justbright2
  2453.  
  2454.  move.l #BrightAnimTable,a4
  2455.  move.w -2(a4,d3.w*2),d2
  2456.  
  2457. justbright2:
  2458.  
  2459.  muls #32,d2
  2460.  divs #20,d2
  2461.  move.w d2,2(a1,d0.w*4)
  2462.  
  2463.  bra doallz
  2464.  
  2465. doneallz:
  2466.  
  2467.  move.l PointBrights,a2
  2468.  move.l #CurrentPointBrights,a3
  2469. justtheone:
  2470.  move.w (a5),d0
  2471.  blt whythehell
  2472.  addq #8,a5
  2473.  
  2474.  muls #40,d0
  2475.  
  2476.  move.w #39,d7
  2477.  
  2478. allinzone:
  2479.  move.w (a2,d0.w*2),d2
  2480.  
  2481.  tst.b d2
  2482.  blt.s .justbright
  2483.  move.w d2,d3
  2484.  lsr.w #8,d3
  2485.  tst.b d3
  2486.  beq.s .justbright
  2487.  
  2488.  move.w d3,d4
  2489.  and.w #$f,d3
  2490.  lsr.w #4,d4
  2491.  add.w #1,d4
  2492.  move.l #BrightAnimTable,a0
  2493.  move.w -2(a0,d3.w*2),d3
  2494.  ext.w d2
  2495.  sub.w d2,d3
  2496.  muls d4,d3
  2497.  asr.w #4,d3
  2498.  add.w d3,d2
  2499.  
  2500. .justbright:
  2501.  ext.w d2
  2502.  
  2503.  muls #31,d2
  2504.  divs #20,d2
  2505.  bge.s .itspos
  2506.  sub.w #600,d2
  2507. .itspos:
  2508.  add.w #300,d2
  2509.  
  2510.  move.w d2,(a3,d0.w*2)
  2511.  addq #1,d0
  2512.  dbra d7,allinzone
  2513.  
  2514.  bra justtheone
  2515.  
  2516. whythehell:
  2517.  
  2518.  move.l PLR1_Roompt,a0
  2519.  move.l #CurrentPointBrights,a1
  2520.  move.l ZoneBorderPts,a2
  2521.  move.w (a0),d0
  2522.  muls #10,d0
  2523.  lea (a2,d0.w*2),a2
  2524.  lea (a1,d0.w*8),a1
  2525.  
  2526.  moveq #9,d7
  2527.  moveq #0,d0
  2528.  moveq #0,d1
  2529. findaverage:
  2530.  tst.w (a2)+
  2531.  blt.s .foundaverage
  2532.  addq #1,d0
  2533.  move.w (a1)+,d2
  2534.  bge.s .okpos
  2535.  neg.w d2
  2536. .okpos:
  2537.  add.w d2,d1
  2538.  
  2539.  dbra d7,findaverage
  2540.  
  2541. .foundaverage:
  2542.  
  2543.  ext.l d1
  2544.  divs d0,d1
  2545.  sub.w #300,d1
  2546.  move.w d1,PLR1_RoomBright
  2547.  
  2548.  cmp.b #'n',mors
  2549.  beq nosee
  2550.  
  2551.  move.l PLR1_Roompt,FromRoom
  2552.  move.l PLR2_Roompt,ToRoom
  2553.  move.w p1_xoff,Viewerx
  2554.  move.w p1_zoff,Viewerz
  2555.  move.l p1_yoff,d0
  2556.  asr.l #7,d0
  2557.  move.w d0,Viewery
  2558.  move.w p2_xoff,Targetx
  2559.  move.w p2_zoff,Targetz
  2560.  move.l p2_yoff,d0
  2561.  asr.l #7,d0
  2562.  move.w d0,Targety
  2563.  move.b PLR1_StoodInTop,ViewerTop
  2564.  move.b PLR2_StoodInTop,TargetTop
  2565.  jsr CanItBeSeen
  2566.  
  2567.  move.l PLR1_Obj,a0
  2568.  move.b CanSee,d0
  2569.  and.b #2,d0
  2570.  move.b d0,17(a0)
  2571.  move.l PLR2_Obj,a0
  2572.  move.b CanSee,d0
  2573.  and.b #1,d0
  2574.  move.b d0,17(a0)
  2575.  
  2576. nosee:
  2577.  
  2578.  
  2579.  move.w TempFrames,d0
  2580.  add.w d0,p1_holddown
  2581.  cmp.w #30,p1_holddown
  2582.  blt.s oklength
  2583.  move.w #30,p1_holddown
  2584. oklength:
  2585.  
  2586.  tst.b p1_fire
  2587.  bne.s okstillheld
  2588.  sub.w d0,p1_holddown
  2589.  bge.s okstillheld
  2590.  move.w #0,p1_holddown
  2591.  
  2592. okstillheld:
  2593.  
  2594.  move.w TempFrames,d0
  2595.  add.w d0,p2_holddown
  2596.  
  2597.  cmp.w #30,p2_holddown
  2598.  blt.s oklength2
  2599.  move.w #30,p2_holddown
  2600. oklength2:
  2601.  
  2602.  
  2603.  tst.b p2_fire
  2604.  bne.s okstillheld2
  2605.  sub.w d0,p2_holddown
  2606.  bge.s okstillheld2
  2607.  move.w #0,p2_holddown
  2608. okstillheld2:
  2609.  
  2610. ***** CHECKING LIGHT *********
  2611.  
  2612. ; move.w #-20,d0
  2613. ; move.w PLR1_xoff,d1
  2614. ; move.w PLR1_zoff,d2
  2615. ; move.l PLR1_Roompt,a0
  2616. ; move.w (a0),d3
  2617. ; move.w PLR1_angpos,d4
  2618. ;
  2619. ; jsr BRIGHTENPOINTSANGLE
  2620.  
  2621. ******************************
  2622.  
  2623. ; move.l #PLR1_GunData,a1
  2624. ; move.w p1_holddown,d0
  2625. ; move.w #50,10+32*3(a1)
  2626. ; move.l #PLR2_GunData,a1
  2627. ; move.w p2_holddown,d0
  2628. ; move.w #50,10+32*3(a1)
  2629.  
  2630. ******************************************
  2631. ******************************************
  2632.  
  2633.  move.w TempFrames,d1
  2634.  bgt.s noze
  2635.  moveq #1,d1
  2636. noze:
  2637.  
  2638.  move.w PLR1_xoff,d0
  2639.  sub.w OLDX1,d0
  2640.  asl.w #4,d0
  2641.  ext.l d0
  2642.  divs d1,d0
  2643.  move.w d0,XDIFF1
  2644.  move.w PLR2_xoff,d0
  2645.  sub.w OLDX2,d0
  2646.  asl.w #4,d0
  2647.  ext.l d0
  2648.  divs d1,d0
  2649.  move.w d0,XDIFF2
  2650.  move.w PLR1_zoff,d0
  2651.  sub.w OLDZ1,d0
  2652.  asl.w #4,d0
  2653.  ext.l d0
  2654.  divs d1,d0
  2655.  move.w d0,ZDIFF1
  2656.  move.w PLR2_zoff,d0
  2657.  sub.w OLDZ2,d0
  2658.  asl.w #4,d0
  2659.  ext.l d0
  2660.  divs d1,d0
  2661.  move.w d0,ZDIFF2
  2662.  
  2663.  cmp.b #'s',mors
  2664.  beq.s ImPlayer2OhYesIAm
  2665.  bsr USEPLR1
  2666.  bra IWasPlayer1
  2667.  
  2668. ImPlayer2OhYesIAm:
  2669.  bsr USEPLR2
  2670. IWasPlayer1:
  2671.  
  2672.  
  2673.  cmp.b #'s',mors
  2674.  beq drawplayer2
  2675.  
  2676.  move.w #0,scaleval
  2677.  
  2678.  move.l PLR1_xoff,xoff
  2679.  move.l PLR1_yoff,yoff
  2680.  move.l PLR1_zoff,zoff
  2681.  move.w PLR1_angpos,angpos
  2682.  move.w PLR1_cosval,cosval
  2683.  move.w PLR1_sinval,sinval
  2684.  
  2685.  
  2686.  move.l PLR1_ListOfGraphRooms,ListOfGraphRooms
  2687.  move.l PLR1_PointsToRotatePtr,PointsToRotatePtr
  2688.  move.b PLR1_Echo,PLREcho
  2689.  move.l PLR1_Roompt,Roompt
  2690.  
  2691.  move.l #KeyMap,a5
  2692.  moveq #0,d5
  2693.  move.b look_behind_key,d5
  2694.  tst.b (a5,d5.w)
  2695.  beq.s .nolookback
  2696.  
  2697.  move.l PLR1_Obj,a0
  2698.  move.w #-1,12+128(a0)
  2699.  
  2700.  eor.w #4096,angpos 
  2701.  neg.w cosval
  2702.  neg.w sinval
  2703. .nolookback:
  2704.  
  2705.  jsr OrderZones
  2706.  jsr objmoveanim
  2707.  jsr EnergyBar
  2708.  jsr AmmoBar
  2709.  
  2710.  
  2711. ;********************************************
  2712. ;************* Do reflection ****************
  2713. ;
  2714. ; move.l ListOfGraphRooms,a0
  2715. ; move.l ZoneAdds,a1
  2716. ;checkwaterheights
  2717. ; move.w (a0),d0
  2718. ; blt allzonesdone
  2719. ; addq #8,a0
  2720. ; move.l (a1,d0.w*4),a2
  2721. ; 
  2722. ; add.l LEVELDATA,a2
  2723. ; 
  2724. ; move.l ToZoneWater(a2),d0
  2725. ; cmp.l ToZoneFloor(a2),d0
  2726. ; blt.s WEHAVEAHEIGHT
  2727. ; 
  2728. ; bra.s checkwaterheights
  2729. ;
  2730. ;WEHAVEAHEIGHT:
  2731. ;
  2732. ; sub.l yoff,d0
  2733. ; blt.s underwater
  2734. ; 
  2735. ; add.l d0,d0
  2736. ; add.l d0,yoff
  2737. ; 
  2738. ; move.l FASTBUFFER2,FASTBUFFER
  2739. ; move.w #0,leftclip
  2740. ; move.w RIGHTX,rightclip
  2741. ; move.w #0,deftopclip
  2742. ; move.w #BOTTOMY/2,defbotclip
  2743. ; move.w #0,topclip
  2744. ; move.w #BOTTOMY/2,botclip
  2745. ;
  2746. ; clr.b DOANYWATER 
  2747. ; 
  2748. ; bsr DrawDisplay
  2749. ; 
  2750. ;allzonesdone:
  2751. ;underwater:
  2752.  
  2753. ********************************************
  2754.  
  2755.  st DOANYWATER
  2756.  
  2757.  move.l PLR1_yoff,yoff
  2758.  
  2759.  move.w #0,leftclip
  2760.  move.w RIGHTX,rightclip
  2761.  move.w #0,deftopclip
  2762.  move.w WIDESCRN,d0
  2763.  add.w d0,deftopclip
  2764.  
  2765.  move.w BOTTOMY,defbotclip
  2766.  sub.w d0,defbotclip
  2767.  move.w #0,topclip
  2768.  add.w d0,topclip
  2769.  move.w BOTTOMY,botclip
  2770.  sub.w d0,botclip
  2771. ; sub.l #10*104*4,frompt
  2772. ; sub.l #10*104*4,midpt
  2773.  
  2774. * Subroom loop
  2775.  
  2776.  bsr DrawDisplay 
  2777.  
  2778.  bra nodrawp2
  2779.  
  2780. drawplayer2
  2781.  
  2782.  move.w #0,scaleval
  2783.  move.l PLR2_xoff,xoff
  2784.  move.l PLR2_yoff,yoff
  2785.  move.l PLR2_zoff,zoff
  2786.  move.w PLR2_angpos,angpos
  2787.  move.w PLR2_cosval,cosval
  2788.  move.w PLR2_sinval,sinval 
  2789.  
  2790.  
  2791.  
  2792.  move.l PLR2_ListOfGraphRooms,ListOfGraphRooms
  2793.  move.l PLR2_PointsToRotatePtr,PointsToRotatePtr
  2794.  move.b PLR2_Echo,PLREcho
  2795.  move.l PLR2_Roompt,Roompt
  2796.  
  2797.  move.l #KeyMap,a5
  2798.  moveq #0,d5
  2799.  move.b look_behind_key,d5
  2800.  tst.b (a5,d5.w)
  2801.  beq.s .nolookback
  2802.  
  2803.  move.l PLR1_Obj,a0
  2804.  move.w #-1,12+128(a0)
  2805.  eor.w #4096,angpos 
  2806.  
  2807.  neg.w cosval
  2808.  neg.w sinval
  2809. .nolookback:
  2810.  
  2811.  jsr OrderZones
  2812.  jsr objmoveanim
  2813.  jsr EnergyBar
  2814.  jsr AmmoBar
  2815.  
  2816.  move.w WIDESCRN,d0
  2817.  
  2818.  move.w #0,leftclip
  2819.  move.w RIGHTX,rightclip
  2820.  move.w #0,deftopclip
  2821.  add.w d0,deftopclip
  2822.  move.w BOTTOMY,defbotclip
  2823.  sub.w d0,defbotclip
  2824.  move.w #0,topclip
  2825.  add.w d0,topclip
  2826.  move.w BOTTOMY,botclip
  2827.  sub.w d0,botclip
  2828.  
  2829.  st DOANYWATER
  2830.  bsr DrawDisplay
  2831.  
  2832. nodrawp2:
  2833.  
  2834. ***************************************** 
  2835. * Copy from copbuff to chip ram
  2836.  
  2837.  
  2838. ; move.l drawpt,a3
  2839. ; adda.w #10,a3
  2840. ; move.l COPSCRNBUFF,a2
  2841. ; move.w #2,d6
  2842. ; adda.w #10,a2
  2843. ;COPYOUT
  2844. ; move.w #31,d0
  2845. ;COPYDOWN1:
  2846. ; move.w #3,d1
  2847. ; move.l a2,a4
  2848. ; move.l a3,a5
  2849. ;.inlop1:
  2850. ;val SET 0
  2851. ; REPT 20
  2852. ; move.w val(a4),val(a5)
  2853. ;val SET val+104*4
  2854. ; ENDR
  2855. ; adda.l #104*4*20,a4
  2856. ; adda.l #104*4*20,a5
  2857. ; dbra d1,.inlop1
  2858. ; addq #4,a2
  2859. ; addq #4,a3
  2860. ; dbra d0,COPYDOWN1
  2861. ; addq #4,a2
  2862. ; addq #4,a3
  2863. ; dbra d6,COPYOUT 
  2864.  
  2865.  tst.b REALMAPON
  2866.  beq.s .nomap
  2867.  bsr DoTheMapWotNastyCharlesIsForcingMeToDo
  2868. .nomap
  2869.  
  2870.  move.w WIDESCRN,d7
  2871.  
  2872.  tst.b FULLSCR
  2873.  beq nobigconv
  2874.  
  2875.  move.l FASTBUFFER,a0
  2876. ; add.l #320*2*20,a0
  2877.  move.w d7,d6
  2878.  muls #320,d6
  2879.  add.l d6,a0
  2880.  move.l SCRNDRAWPT,a1
  2881.  move.w d7,d6
  2882.  muls #40,d6
  2883.  add.l d6,a1
  2884.  add.l #2,a1
  2885.  move.l #(288/8)-1,d0
  2886.  move.l #231,d1
  2887.  sub.w d7,d1
  2888.  sub.w d7,d1
  2889.  blt nochunk
  2890.  move.w #(320-288),d2
  2891.  move.w #4,d3
  2892.  
  2893.  bra donebigconv
  2894.  
  2895. nobigconv:
  2896.  
  2897.  move.l FASTBUFFER,a0
  2898.  move.w d7,d6
  2899.  muls #320,d6
  2900.  add.l d6,a0
  2901.  move.l SCRNDRAWPT,a1
  2902.  add.l #8+40*20,a1
  2903.  move.w d7,d6
  2904.  muls #40,d6
  2905.  add.l d6,a1
  2906.  move.l #(192/8)-1,d0
  2907.  move.l #159,d1
  2908.  sub.w d7,d1
  2909.  sub.w d7,d1
  2910.  blt nochunk
  2911.  move.w #(320-192),d2
  2912.  move.w #16,d3
  2913. donebigconv
  2914.  
  2915.  tst.b DOUBLEHEIGHT
  2916.  beq.s .nodoub
  2917.  asr.w #1,d1
  2918.  blt nochunk
  2919.  add.w #320,d2
  2920.  add.w #40,d3
  2921. .nodoub:
  2922.  
  2923.  move.b DOUBLEWIDTH,d4
  2924.  
  2925.  move.b PLR1_TELEPORTED,d5
  2926.  clr.b PLR1_TELEPORTED
  2927.  cmp.b #'s',mors
  2928.  bne.s .notplr2
  2929.  move.b PLR2_TELEPORTED,d5
  2930.  clr.b PLR2_TELEPORTED
  2931. .notplr2
  2932.  jsr CHUNKYTOPLANAR 
  2933.  
  2934. nochunk:
  2935.  
  2936.  
  2937.  move.l #KeyMap,a5
  2938.  tst.b $4a(a5)
  2939.  beq .nosmallscr
  2940.  
  2941.  move.w #100,d2
  2942.  move.l #0,d7
  2943.  move.l #0,d6
  2944.  tst.b FULLSCR
  2945.  bne.s .attop
  2946.  move.l #40*20,d7
  2947.  move.l #40*52,d6
  2948.  move.w #60,d2
  2949. .attop:
  2950.  
  2951.  move.w WIDESCRN,d0
  2952.  move.l SCRNDRAWPT,a0
  2953.  add.l d7,a0
  2954.  muls #40,d0
  2955.  add.l d0,a0
  2956.  bsr CLRTWOLINES
  2957.  move.w WIDESCRN,d0
  2958.  move.l SCRNSHOWPT,a0
  2959.  add.l d7,a0
  2960.  muls #40,d0
  2961.  add.l d0,a0
  2962.  bsr CLRTWOLINES
  2963.  
  2964.  
  2965.  add.w #2,WIDESCRN
  2966.  
  2967.  cmp.w WIDESCRN,d2
  2968.  bgt.s .okwide
  2969.  move.w d2,WIDESCRN
  2970. .okwide:
  2971.  
  2972.  move.l SCRNDRAWPT,a0
  2973.  add.l #232*40,a0
  2974.  sub.l d6,a0
  2975.  move.w WIDESCRN,d0
  2976.  muls #40,d0
  2977.  sub.l d0,a0
  2978.  bsr CLRTWOLINES
  2979.  move.l SCRNSHOWPT,a0
  2980.  sub.l d6,a0
  2981.  add.l #232*40,a0
  2982.  move.w WIDESCRN,d0
  2983.  muls #40,d0
  2984.  sub.l d0,a0
  2985.  bsr CLRTWOLINES
  2986.  
  2987. .nosmallscr
  2988.  
  2989.  tst.b $5e(a5)
  2990.  beq.s .nobigscr
  2991.  tst.w WIDESCRN
  2992.  ble.s .nobigscr
  2993.  
  2994.  sub.w #2,WIDESCRN
  2995.  
  2996. .nobigscr
  2997.  
  2998.  
  2999. ; tst.b (a5)
  3000. ; beq.s .nosavescrn
  3001. ;
  3002. ; not.b USEDOUG
  3003. ;
  3004. ; jsr SAVETHESCREEN
  3005. ;
  3006. ;.nosavescrn:
  3007.  
  3008.  tst.b $5b(a5)
  3009.  beq notdoubheight
  3010.  tst.b LASTDH
  3011.  bne notdoubheight2
  3012.  move.l SCRNSHOWPT,a0
  3013.  jsr WIPEDISPLAY
  3014.  move.l SCRNDRAWPT,a0
  3015.  jsr WIPEDISPLAY
  3016.  st LASTDH 
  3017.  
  3018.  move.w #0,d0
  3019.  move.w #0,d1
  3020.  
  3021.  not.b DOUBLEHEIGHT
  3022.  beq.s singlepixheight
  3023.  move.w #-40,d0
  3024.  move.w #40,d1
  3025.  
  3026. singlepixheight:
  3027.  
  3028.  move.l #SCRMODULOS,a0
  3029.  move.w #115,d2
  3030. putinmode:
  3031.  move.w d0,6(a0)
  3032.  move.w d0,6+4(a0)
  3033.  move.w d1,6+16(a0)
  3034.  move.w d1,6+16+4(a0)
  3035.  add.w #32,a0
  3036.  dbra d2,putinmode
  3037.  
  3038.  bra notdoubheight2
  3039.  
  3040. notdoubheight:
  3041.  clr.b LASTDH
  3042. notdoubheight2
  3043.  
  3044.  tst.b $5a(a5)
  3045.  beq.s notdoubwidth
  3046.  tst.b LASTDW
  3047.  bne notdoubwidth2
  3048.  move.l SCRNSHOWPT,a0
  3049.  jsr WIPEDISPLAY
  3050.  move.l SCRNDRAWPT,a0
  3051.  jsr WIPEDISPLAY
  3052.  st LASTDW
  3053.  not.b DOUBLEWIDTH
  3054.  bra.s notdoubwidth2
  3055.  
  3056. notdoubwidth:
  3057.  clr.b LASTDW
  3058. notdoubwidth2:
  3059.  
  3060. ***************************************** 
  3061.  move.l PLR2_Roompt,a0
  3062.  move.l #WorkSpace,a1
  3063.  clr.l (a1)
  3064.  clr.l 4(a1)
  3065.  clr.l 8(a1)
  3066.  clr.l 12(a1)
  3067.  clr.l 16(a1)
  3068.  clr.l 20(a1)
  3069.  clr.l 24(a1)
  3070.  clr.l 28(a1)
  3071.  
  3072.  cmp.b #'n',mors
  3073.  beq.s plr1only
  3074.  
  3075.  lea ToListOfGraph(a0),a0
  3076. .doallrooms:
  3077.  move.w (a0),d0
  3078.  blt.s .allroomsdone
  3079.  addq #8,a0
  3080.  move.w d0,d1
  3081.  asr.w #3,d0
  3082.  bset d1,(a1,d0.w)
  3083.  bra .doallrooms
  3084. .allroomsdone:
  3085.  
  3086. plr1only:
  3087.  
  3088.  move.l PLR1_Roompt,a0
  3089.  lea ToListOfGraph(a0),a0
  3090. .doallrooms2:
  3091.  move.w (a0),d0
  3092.  blt.s .allroomsdone2
  3093.  addq #8,a0
  3094.  move.w d0,d1
  3095.  asr.w #3,d0
  3096.  bset d1,(a1,d0.w)
  3097.  bra .doallrooms2
  3098. .allroomsdone2:
  3099.  
  3100.  move.l #%000001,d7
  3101.  lea TEAMWORK,a2
  3102.  move.l ObjectData,a0
  3103.  sub.w #64,a0
  3104. .doallobs:
  3105.  add.w #64,a0
  3106.  move.w (a0),d0
  3107.  blt.s .allobsdone
  3108.  move.w 12(a0),d0
  3109.  blt.s .doallobs
  3110.  move.w d0,d1
  3111.  asr.w #3,d0
  3112.  btst d1,(a1,d0.w)
  3113.  bne.s .worryobj
  3114.  move.b 16(a0),d0
  3115.  btst d0,d7
  3116.  beq.s .doallobs
  3117.  moveq #0,d0
  3118.  move.b teamnumber(a0),d0
  3119.  blt.s .doallobs
  3120.  asl.w #4,d0
  3121.  tst.w SEENBY(a2,d0.w)
  3122.  blt.s .doallobs
  3123. .worryobj:
  3124.  or.b #127,worry(a0)
  3125.  bra.s .doallobs
  3126. .allobsdone:
  3127.  
  3128.  
  3129.  
  3130. ; move.l #brightentab,a0
  3131. ; move.l frompt,a3
  3132. ; adda.w #(4*33)+(104*4*20),a3
  3133. ; move.w #20,d7
  3134. ; move.w #20,d6
  3135. ;horl:
  3136. ; move.w d6,d5
  3137. ; move.l a3,a1
  3138. ;vertl
  3139. ; move.w (a1),d0
  3140. ; move.w (a0,d0.w*2),(a1)
  3141. ; addq #4,a1
  3142. ; dbra d5,vertl
  3143. ; adda.w #104*4,a3
  3144. ; dbra d7,horl
  3145.  
  3146.  move.l #$dff000,a6
  3147.  
  3148. ; move.w #$300,col0(a6)
  3149.  
  3150.  move.l #KeyMap,a5
  3151.  tst.b $45(a5)
  3152.  beq.s noend
  3153.  
  3154.  cmp.b #'s',mors
  3155.  beq plr2quit 
  3156.  
  3157.  st MASTERQUITTING
  3158.  bra noend
  3159.  
  3160. plr2quit:
  3161.  st SLAVEQUITTING
  3162. noend:
  3163.  
  3164.  tst.b MASTERQUITTING
  3165.  beq.s .noquit
  3166.  tst.b SLAVEQUITTING
  3167.  beq.s .noquit
  3168.  jmp endnomusic
  3169. .noquit
  3170.  
  3171.  cmp.b #'n',mors
  3172.  bne.s noexit
  3173.  move.l PLR1_Roompt,a0
  3174.  move.w (a0),d0
  3175. ; move.w PLOPT,d1
  3176. ; move.l #ENDZONES,a0
  3177. ; cmp.w (a0,d1.w*2),d0
  3178.  
  3179.  cmp.w ENDZONE,d0
  3180.  
  3181. ; change this for quick exit, charlie
  3182. zzzz:
  3183. ; bra end
  3184.  
  3185.  bne.s noexit
  3186.  add.w #2,TELVAL
  3187.  cmp.w #9,TELVAL
  3188.  blt noexit
  3189.  
  3190.  jmp end
  3191. noexit:
  3192.  
  3193. ; tst.w PLAYERONEHEALTH
  3194. ; bgt nnoend1
  3195. ; jmp end
  3196. ;nnoend1:
  3197. ; tst.w PLAYERTWOHEALTH
  3198. ; bgt nnoend2
  3199. ; jmp end
  3200. ;nnoend2:
  3201.  
  3202. ; move.l SwitchData,a0
  3203. ; tst.b 24+8(a0)
  3204. ; bne end
  3205.   
  3206. ; JSR STOPTIMER
  3207.  
  3208.  
  3209.  bra lop
  3210.  
  3211.  
  3212.  
  3213. ; include "ab3:demo/system/keyboard.s"
  3214.  include "ab3:source_4000/ab3diipatchidr.s"
  3215.  
  3216. CLRTWOLINES:
  3217.  
  3218.  move.l d2,-(a7)
  3219.  
  3220.  moveq #0,d1
  3221.  move.w #7,d2
  3222. .ccc
  3223.  move.l d1,2(a0)
  3224.  move.l d1,6(a0)
  3225.  move.l d1,10(a0)
  3226.  move.l d1,14(a0)
  3227.  move.l d1,18(a0)
  3228.  move.l d1,22(a0)
  3229.  move.l d1,26(a0)
  3230.  move.l d1,30(a0)
  3231.  move.l d1,34(a0)
  3232.  move.l d1,2+40(a0)
  3233.  move.l d1,6+40(a0)
  3234.  move.l d1,10+40(a0)
  3235.  move.l d1,14+40(a0)
  3236.  move.l d1,18+40(a0)
  3237.  move.l d1,22+40(a0)
  3238.  move.l d1,26+40(a0)
  3239.  move.l d1,30+40(a0)
  3240.  move.l d1,34+40(a0)
  3241.  add.l #10240,a0
  3242.  dbra d2,.ccc
  3243.  move.l (a7)+,d2
  3244.  rts
  3245.  
  3246.  
  3247. LASTDH: dc.b 0
  3248. LASTDW: dc.b 0
  3249. WIDESCRN: dc.w 0
  3250. TRRANS: dc.w 0
  3251. DOANYWATER: dc.w 0
  3252.  
  3253. DoTheMapWotNastyCharlesIsForcingMeToDo:
  3254.  
  3255.  move.l TexturePal,a4
  3256.  add.l #256*32,a4
  3257. ; add.w MAPBRIGHT,a4
  3258.  
  3259.  move.l #KeyMap,a5
  3260.  tst.b $50(a5)
  3261.  beq.s .nobrighter
  3262.  tst.w MAPBRIGHT
  3263.  beq.s .nobrighter
  3264.  
  3265.  sub.w #1,MAPBRIGHT
  3266.  
  3267. .nobrighter:
  3268.  
  3269.  tst.b $51(a5)
  3270.  beq.s .nodimmer
  3271.  cmp.w #7,MAPBRIGHT
  3272.  bge.s .nodimmer
  3273.  
  3274.  add.w #1,MAPBRIGHT
  3275.  
  3276. .nodimmer:
  3277.  
  3278.  move.l #Rotated,a1
  3279.  move.l #COMPACTMAP,a2
  3280.  move.l #BIGMAP-40,a3
  3281.  
  3282. preshow:
  3283.  add.w #40,a3
  3284.  
  3285. SHOWMAP:
  3286.  move.l (a2)+,d5
  3287.  move.l a2,d7
  3288.  cmp.l LASTZONE,d7
  3289.  bgt shownmap
  3290.  
  3291.  tst.l d5
  3292.  beq.s preshow
  3293.  
  3294.  move.w #9,d7
  3295. wallsofzone
  3296.  
  3297.  asr.l #1,d5
  3298.  bcs.s WALLSEEN
  3299.  
  3300.  asr.l #1,d5
  3301.  bcs.s WALLMAPPED
  3302.  
  3303.  asr.l #1,d5
  3304.  addq #4,a3
  3305.  bra.s DECIDEDWALL
  3306.  
  3307. WALLMAPPED:
  3308.  move.w #$b00,d4
  3309.  asr.l #1,d5
  3310.  bcc.s .notadoor
  3311.  move.w #$e00,d4
  3312. .notadoor
  3313.  
  3314.  st TRRANS
  3315.  
  3316.  bra.s DECIDEDCOLOUR
  3317.  
  3318. WALLSEEN:
  3319.  
  3320.  clr.b TRRANS
  3321.  
  3322.  move.w #255,d4
  3323.  asr.l #2,d5
  3324.  bcc.s .notadoor
  3325.  move.w #254,d4
  3326. .notadoor
  3327. DECIDEDCOLOUR:
  3328.  move.w (a3)+,d6
  3329.  move.l (a1,d6.w*8),d0
  3330.  asr.l #7,d0
  3331.  movem.l d7/d5,-(a7)
  3332.  move.w mapxoff,d5
  3333.  ext.l d5
  3334.  add.l d5,d0
  3335.  move.l 4(a1,d6.w*8),d1
  3336.  move.w mapzoff,d5
  3337.  ext.l d5
  3338.  add.l d5,d1
  3339.  move.w (a3)+,d6
  3340.  move.l (a1,d6.w*8),d2
  3341.  move.w mapxoff,d5
  3342.  ext.l d5
  3343.  asr.l #7,d2
  3344.  add.l d5,d2
  3345.  move.l 4(a1,d6.w*8),d3
  3346.  move.w mapzoff,d5
  3347.  ext.l d5
  3348.  add.l d5,d3
  3349.  
  3350.  neg.l d1
  3351.  neg.l d3
  3352.  
  3353.  bsr CLIPANDDRAW
  3354.  movem.l (a7)+,d7/d5
  3355.  
  3356. DECIDEDWALL:
  3357.  
  3358.  dbra d7,wallsofzone
  3359.  bra SHOWMAP
  3360.  
  3361. shownmap:
  3362.  
  3363.  clr.b TRRANS
  3364.  
  3365.  move.w mapxoff,d0
  3366.  ext.l d0
  3367.  move.w mapzoff,d1
  3368.  ext.l d1
  3369.  neg.l d1
  3370.  move.l d0,d2
  3371.  move.l d1,d3
  3372.  sub.l #128,d1
  3373.  add.l #128,d3
  3374.  move.w #250,d4
  3375.  bsr CLIPANDDRAW
  3376.  
  3377.  move.w mapxoff,d0
  3378.  ext.l d0
  3379.  move.w mapzoff,d1
  3380.  ext.l d1
  3381.  neg.l d1
  3382.  move.l d0,d2
  3383.  move.l d1,d3
  3384.  sub.l #128,d1
  3385.  sub.l #32,d3
  3386.  sub.l #64,d2
  3387.  move.w #250,d4
  3388.  bsr CLIPANDDRAW
  3389.  
  3390.  move.w mapxoff,d0
  3391.  ext.l d0
  3392.  move.w mapzoff,d1
  3393.  ext.l d1
  3394.  neg.l d1
  3395.  move.l d0,d2
  3396.  move.l d1,d3
  3397.  sub.l #128,d1
  3398.  sub.l #32,d3
  3399.  add.l #64,d2
  3400.  move.w #250,d4
  3401.  bsr CLIPANDDRAW
  3402.  rts
  3403.  
  3404.  
  3405. CLIPANDDRAW:
  3406.  
  3407.  tst.b FULLSCR
  3408.  beq.s .nodov
  3409.  
  3410.  add.l d0,d0
  3411.  add.l d2,d2
  3412.  ext.l d0
  3413.  ext.l d2
  3414.  divs.l #3,d0
  3415.  divs.l #3,d2
  3416.  
  3417. .nodov:
  3418.  
  3419.  move.w MAPBRIGHT,d5
  3420.  
  3421.  asr.l d5,d0
  3422.  asr.l d5,d1
  3423.  asr.l d5,d2
  3424.  asr.l d5,d3
  3425.  
  3426. NOSCALING:
  3427.  add.l #96,d0
  3428.  bge p1xpos
  3429.  
  3430.  add.l #96,d2
  3431.  blt OFFSCREEN
  3432.  
  3433. x1nx2p:
  3434.  
  3435.  move.l d3,d5
  3436.  sub.l d1,d5
  3437.  move.l d2,d6
  3438.  sub.l d0,d6
  3439.  beq OFFSCREEN
  3440.  
  3441.  muls.l d0,d5
  3442.  divs.l d6,d5
  3443.  sub.l d5,d1
  3444.  move.l #0,d0
  3445.  
  3446.  bra doneleftclip
  3447.  
  3448. p1xpos:
  3449.  
  3450.  add.l #96,d2
  3451.  bge doneleftclip
  3452.  
  3453.  move.l d1,d5
  3454.  sub.l d3,d5
  3455.  move.l d0,d6
  3456.  sub.l d2,d6
  3457.  beq OFFSCREEN
  3458.  
  3459.  muls.l d2,d5
  3460.  divs.l d6,d5
  3461.  sub.l d5,d3
  3462.  move.l #0,d2
  3463.  
  3464. doneleftclip:
  3465.  
  3466.  cmp.l #191,d0
  3467.  ble p1xneg
  3468.  
  3469.  cmp.l #191,d2
  3470.  bgt OFFSCREEN
  3471.  
  3472.  move.l d0,d6
  3473.  sub.l d2,d6
  3474.  beq OFFSCREEN
  3475.  sub.l #191,d0
  3476.  move.l d3,d5
  3477.  sub.l d1,d5
  3478.  
  3479.  muls.l d5,d0
  3480.  divs.l d6,d0
  3481.  add.l d0,d1
  3482.  move.l #191,d0
  3483.  
  3484.  bra donerightclip
  3485.  
  3486. p1xneg:
  3487.  
  3488.  cmp.l #191,d2
  3489.  ble donerightclip
  3490.  
  3491.  move.l d2,d6
  3492.  sub.l d0,d6
  3493.  beq OFFSCREEN
  3494.  sub.l #191,d2
  3495.  move.l d1,d5
  3496.  sub.l d3,d5
  3497.  
  3498.  muls.l d5,d2
  3499.  divs.l d6,d2
  3500.  add.l d2,d3
  3501.  move.l #191,d2
  3502.  
  3503. donerightclip:
  3504.  
  3505. *********************************
  3506.  
  3507.  add.l #80,d1
  3508.  bge p1ypos
  3509.  
  3510.  add.l #80,d3
  3511.  blt OFFSCREEN
  3512.  
  3513.  move.l d2,d5
  3514.  sub.l d0,d5
  3515.  move.l d3,d6
  3516.  sub.l d1,d6
  3517.  beq OFFSCREEN
  3518.  
  3519.  muls.l d1,d5
  3520.  divs.l d6,d5
  3521.  sub.l d5,d0
  3522.  move.l #0,d1
  3523.  
  3524.  bra donetopclip
  3525.  
  3526. p1ypos:
  3527.  
  3528.  add.l #80,d3
  3529.  bge donetopclip
  3530.  
  3531.  move.l d0,d5
  3532.  sub.l d2,d5
  3533.  move.l d1,d6
  3534.  sub.l d3,d6
  3535.  beq OFFSCREEN
  3536.  
  3537.  muls.l d3,d5
  3538.  divs.l d6,d5
  3539.  sub.l d5,d2
  3540.  move.l #0,d3
  3541.  
  3542. donetopclip:
  3543.  
  3544.  cmp.l #159,d1
  3545.  ble p1yneg
  3546.  
  3547.  cmp.l #159,d3
  3548.  bgt OFFSCREEN
  3549.  
  3550.  move.l d1,d6
  3551.  sub.l d3,d6
  3552.  beq OFFSCREEN
  3553.  sub.l #159,d1
  3554.  move.l d2,d5
  3555.  sub.l d0,d5
  3556.  
  3557.  muls.l d5,d1
  3558.  divs.l d6,d1
  3559.  add.l d1,d0
  3560.  move.l #159,d1
  3561.  
  3562.  bra donebotclip
  3563.  
  3564. p1yneg:
  3565.  
  3566.  cmp.l #159,d3
  3567.  ble donebotclip
  3568.  
  3569.  move.l d3,d6
  3570.  sub.l d1,d6
  3571.  beq OFFSCREEN
  3572.  sub.l #159,d3
  3573.  move.l d0,d5
  3574.  sub.l d2,d5
  3575.  
  3576.  muls.l d5,d3
  3577.  divs.l d6,d3
  3578.  add.l d3,d2
  3579.  move.l #159,d3
  3580.  
  3581. donebotclip:
  3582.  
  3583.  tst.b TRRANS
  3584.  bne DRAWAtransLINE
  3585.  bra DRAWAMAPLINE
  3586.  
  3587. OFFSCREEN:
  3588. NOLINEtrans:
  3589.  rts
  3590.  
  3591. MAPBRIGHT:
  3592.  dc.w 3
  3593. mapxoff: dc.w 0
  3594. mapzoff: dc.w 0
  3595.  
  3596. DRAWAtransLINE:
  3597.  
  3598.  move.l FASTBUFFER,a0    ; screen to render to.
  3599.  
  3600.  tst.b FULLSCR
  3601.  beq.s .nooffset
  3602.   
  3603.  add.l #(320*40)+(48*2),a0
  3604.   
  3605. .nooffset:
  3606.  
  3607.  cmp.w d1,d3
  3608.  bgt.s .okdown
  3609.  bne.s .aline
  3610.  cmp.w d0,d2
  3611.  beq.s NOLINEtrans 
  3612. .aline
  3613.  exg d0,d2
  3614.  exg d1,d3
  3615. .okdown
  3616.  
  3617.  move.w d1,d5
  3618.  muls #320,d5
  3619.  add.l d5,a0
  3620.  lea (a0,d0.w*2),a0
  3621.  
  3622.  sub.w d1,d3
  3623.  
  3624.  sub.w d0,d2
  3625.  bge.s downrighttrans
  3626.  
  3627. downlefttrans:
  3628.  neg.w d2
  3629.  cmp.w d2,d3
  3630.  bgt.s downmorelefttrans
  3631.  
  3632. downleftmoretrans:
  3633.  move.w #320,d6
  3634.  move.w d2,d0
  3635.  move.w d2,d7
  3636.  
  3637. .linelop:
  3638.  move.b (a0),d4
  3639.  move.b (a4,d4.w*2),(a0)
  3640.  subq #1,a0
  3641.  sub.w d3,d0
  3642.  bgt.s .noextra
  3643.  add.w d2,d0
  3644.  add.w d6,a0
  3645. .noextra:
  3646.  dbra d7,.linelop
  3647.  rts
  3648.  
  3649. downmorelefttrans:
  3650.  move.w #320,d6
  3651.  move.w d3,d0
  3652.  move.w d3,d7
  3653.  
  3654. .linelop:
  3655.  move.b (a0),d4
  3656.  move.b (a4,d4.w*2),(a0)
  3657.  add.w d6,a0
  3658.  sub.w d2,d0
  3659.  bgt.s .noextra
  3660.  add.w d3,d0
  3661.  subq #1,a0
  3662. .noextra:
  3663.  dbra d7,.linelop
  3664.  
  3665.  rts
  3666.  
  3667. downrighttrans:
  3668.  
  3669.  cmp.w d2,d3
  3670.  bgt.s downmorerighttrans
  3671.  
  3672. downrightmoretrans:
  3673.  move.w #320,d6
  3674.  move.w d2,d0
  3675.  move.w d2,d7
  3676.  
  3677. .linelop:
  3678.  move.b (a0),d4
  3679.  move.b (a4,d4.w*2),(a0)+
  3680.  sub.w d3,d0
  3681.  bgt.s .noextra
  3682.  add.w d2,d0
  3683.  add.w d6,a0
  3684. .noextra:
  3685.  dbra d7,.linelop
  3686.  
  3687.  rts
  3688.  
  3689. downmorerighttrans:
  3690.  move.w #320,d6
  3691.  move.w d3,d0
  3692.  move.w d3,d7
  3693.  
  3694. .linelop:
  3695.  move.b (a0),d4
  3696.  move.b (a4,d4.w*2),(a0)
  3697.  add.w d6,a0
  3698.  sub.w d2,d0
  3699.  bgt.s .noextra
  3700.  add.w d3,d0
  3701.  addq #1,a0
  3702. .noextra:
  3703.  dbra d7,.linelop
  3704.  
  3705.  rts
  3706.  
  3707. NOLINE:
  3708.  rts
  3709.  
  3710. DRAWAMAPLINE:
  3711.  
  3712.  
  3713.  move.b DOUBLEHEIGHT,d5
  3714.  or.b DOUBLEWIDTH,d5
  3715.  tst.b d5
  3716.  bne DOITFAT
  3717.  
  3718.  move.l FASTBUFFER,a0    ; screen to render to.
  3719.  cmp.w d1,d3
  3720.  bgt.s .okdown
  3721.  bne.s .aline
  3722.  cmp.w d0,d2
  3723.  beq.s NOLINE 
  3724. .aline
  3725.  exg d0,d2
  3726.  exg d1,d3
  3727. .okdown
  3728.  
  3729.  move.w d1,d5
  3730.  muls #320,d5
  3731.  add.l d5,a0
  3732.  lea (a0,d0.w),a0
  3733.  
  3734.  sub.w d1,d3
  3735.  
  3736.  sub.w d0,d2
  3737.  bge.s downright
  3738.  
  3739. downleft:
  3740.  neg.w d2
  3741.  cmp.w d2,d3
  3742.  bgt.s downmoreleft
  3743.  
  3744. downleftmore:
  3745.  move.w #320,d6
  3746.  move.w d2,d0
  3747.  move.w d2,d7
  3748.  addq #1,a0
  3749.  
  3750. .linelop
  3751.  move.b d4,-(a0)
  3752.  sub.w d3,d0
  3753.  bgt.s .noextra
  3754.  add.w d2,d0
  3755.  add.w d6,a0
  3756. .noextra:
  3757.  dbra d7,.linelop
  3758.  rts
  3759.  
  3760. downmoreleft:
  3761.  move.w #320,d6
  3762.  move.w d3,d0
  3763.  move.w d3,d7
  3764.  
  3765. .linelop:
  3766.  move.b d4,(a0)
  3767.  add.w d6,a0
  3768.  sub.w d2,d0
  3769.  bgt.s .noextra
  3770.  add.w d3,d0
  3771.  subq #1,a0
  3772. .noextra:
  3773.  dbra d7,.linelop
  3774.  
  3775.  rts
  3776.  
  3777. downright:
  3778.  
  3779.  cmp.w d2,d3
  3780.  bgt.s downmoreright
  3781.  
  3782. downrightmore:
  3783.  move.w #320,d6
  3784.  move.w d2,d0
  3785.  move.w d2,d7
  3786.  
  3787. .linelop:
  3788.  move.b d4,(a0)+
  3789.  sub.w d3,d0
  3790.  bgt.s .noextra
  3791.  add.w d2,d0
  3792.  add.w d6,a0
  3793. .noextra:
  3794.  dbra d7,.linelop
  3795.  
  3796.  rts
  3797.  
  3798. downmoreright:
  3799.  move.w #320,d6
  3800.  move.w d3,d0
  3801.  move.w d3,d7
  3802.  
  3803. .linelop:
  3804.  move.b d4,(a0)
  3805.  add.w d6,a0
  3806.  sub.w d2,d0
  3807.  bgt.s .noextra
  3808.  add.w d3,d0
  3809.  addq #1,a0
  3810. .noextra:
  3811.  dbra d7,.linelop
  3812.  
  3813.  rts
  3814.  
  3815.  
  3816. DOITFAT:
  3817.  move.l FASTBUFFER,a0    ; screen to render to.
  3818.  cmp.w d1,d3
  3819.  bgt.s .okdown
  3820.  bne.s .aline
  3821.  cmp.w d0,d2
  3822.  beq NOLINE 
  3823. .aline
  3824.  exg d0,d2
  3825.  exg d1,d3
  3826. .okdown
  3827.  
  3828.  move.w d1,d5
  3829.  muls #320,d5
  3830.  add.l d5,a0
  3831.  lea (a0,d0.w),a0
  3832.  
  3833.  sub.w d1,d3
  3834.  
  3835.  sub.w d0,d2
  3836.  bge.s downrightFAT
  3837.  
  3838. downleftFAT:
  3839.  neg.w d2
  3840.  cmp.w d2,d3
  3841.  bgt.s downmoreleftFAT
  3842.  
  3843. downleftmoreFAT:
  3844.  move.w #320,d6
  3845.  move.w d2,d0
  3846.  move.w d2,d7
  3847.  addq #1,a0
  3848.  
  3849. .linelop
  3850.  move.b d4,319(a0)
  3851.  move.b d4,(a0)
  3852.  move.b d4,-(a0)
  3853.  sub.w d3,d0
  3854.  bgt.s .noextra
  3855.  add.w d2,d0
  3856.  add.w d6,a0
  3857. .noextra:
  3858.  dbra d7,.linelop
  3859.  rts
  3860.  
  3861. downmoreleftFAT:
  3862.  move.w #320,d6
  3863.  move.w d3,d0
  3864.  move.w d3,d7
  3865.  
  3866. .linelop:
  3867.  move.b d4,320(a0)
  3868.  move.b d4,1(a0)
  3869.  move.b d4,(a0)
  3870.  add.w d6,a0
  3871.  sub.w d2,d0
  3872.  bgt.s .noextra
  3873.  add.w d3,d0
  3874.  subq #1,a0
  3875. .noextra:
  3876.  dbra d7,.linelop
  3877.  
  3878.  rts
  3879.  
  3880. downrightFAT:
  3881.  
  3882.  cmp.w d2,d3
  3883.  bgt.s downmorerightFAT
  3884.  
  3885. downrightmoreFAT:
  3886.  move.w #320,d6
  3887.  move.w d2,d0
  3888.  move.w d2,d7
  3889.  
  3890. .linelop:
  3891.  move.b d4,320(a0)
  3892.  move.b d4,(a0)+
  3893.  move.b d4,(a0)
  3894.  sub.w d3,d0
  3895.  bgt.s .noextra
  3896.  add.w d2,d0
  3897.  add.w d6,a0
  3898. .noextra:
  3899.  dbra d7,.linelop
  3900.  
  3901.  rts
  3902.  
  3903. downmorerightFAT:
  3904.  move.w #320,d6
  3905.  move.w d3,d0
  3906.  move.w d3,d7
  3907.  
  3908. .linelop:
  3909.  move.b d4,320(a0)
  3910.  move.b d4,1(a0)
  3911.  move.b d4,(a0)
  3912.  add.w d6,a0
  3913.  sub.w d2,d0
  3914.  bgt.s .noextra
  3915.  add.w d3,d0
  3916.  addq #1,a0
  3917. .noextra:
  3918.  dbra d7,.linelop
  3919.  
  3920.  rts
  3921.  
  3922.  
  3923. SAVETHESCREEN:
  3924.  
  3925.  move.l old,$dff080
  3926.  move.w #$8020,$dff000+intena
  3927.  
  3928.  move.l _IntuitionBase,a6
  3929.  jsr _LVORethinkDisplay(a6)
  3930.  
  3931.  move.l doslib,a6
  3932.  move.l #SAVENAME,d1
  3933.  move.l #1006,d2
  3934.  jsr -30(a6)
  3935.  move.l d0,handle
  3936.  
  3937.  move.l doslib,a6
  3938.  move.l SCRNDRAWPT,d2
  3939.  move.l handle,d1
  3940.  move.l #10240*8,d3
  3941.  jsr _LVOWrite(a6)
  3942.  
  3943.  move.l doslib,a6
  3944.  move.l handle,d1
  3945.  jsr -36(a6)
  3946.  
  3947.  move.l doslib,a6
  3948.  move.l #200,d1
  3949.  jsr -198(a6) 
  3950.  
  3951.  move.w #$0020,$dff000+intena
  3952.  move.l #bigfield,$dff080
  3953.  
  3954.  add.b #1,SAVELETTER
  3955.  
  3956.  rts
  3957.  
  3958. SAVENAME: dc.b 'work:rawscrn'
  3959. SAVELETTER: dc.b 'd',0
  3960.  
  3961.  even
  3962.  
  3963.  include "ab3:source_4000/CHUNKY.s"
  3964.  
  3965.  
  3966. MASTERQUITTING: dc.b 0
  3967. SLAVEQUITTING: dc.b 0
  3968. MASTERPAUSE: dc.b 0
  3969. SLAVEPAUSE: dc.b 0
  3970.  
  3971. PAUSEOPTS:
  3972.  include "ab3:source_4000/pauseopts"
  3973.  
  3974. ENDZONE: dc.w 0
  3975.  
  3976. ENDZONES:
  3977. ; LEVEL 1
  3978.  dc.w -1
  3979. ; dc.w 55
  3980. ; LEVEL 2
  3981.  dc.w 149
  3982. ; LEVEL 3
  3983.  dc.w 155
  3984. ; LEVEL 4
  3985.  dc.w 107
  3986. ; LEVEL 5
  3987.  dc.w 67
  3988. ; LEVEL 6
  3989.  dc.w 132
  3990. ; LEVEL 7
  3991.  dc.w 203
  3992. ; LEVEL 8
  3993.  dc.w 166
  3994. ; LEVEL 9
  3995.  dc.w 118
  3996. ; LEVEL 10
  3997.  dc.w 102
  3998. ; LEVEL 11
  3999.  dc.w 103
  4000. ; LEVEL 12
  4001.  dc.w 2
  4002. ; LEVEL 13
  4003.  dc.w 98
  4004. ; LEVEL 14
  4005.  dc.w 0
  4006. ; LEVEL 15
  4007.  dc.w 148
  4008. ; LEVEL 16
  4009.  dc.w 103
  4010.  
  4011. ***************************************************************************
  4012. ***************************************************************************
  4013. ****************** End of Main Loop here ********************************** 
  4014. ***************************************************************************
  4015. ***************************************************************************
  4016.  
  4017. putinsmallscr:
  4018.  
  4019.  rts
  4020.  
  4021.  move.l #$1fe0000,statskip
  4022.  move.l #$1fe0000,statskip+4
  4023.  
  4024.  move.l #healthpal,a5
  4025. ; move.l COPSCRN1,a0
  4026. ; move.l COPSCRN2,a2
  4027.  move.w #scrheight-1,d0
  4028.  move.l #0,d6
  4029.  move.w #0,d3
  4030.  move.w #$2bdf,startwait
  4031.  move.w #$2d01,endwait
  4032. .fillcop
  4033.  move.w #$180,d1
  4034.  
  4035.  move.l a0,a1
  4036.  move.l a2,a3
  4037.  move.w #$10c,(a1)+
  4038.  move.w #$10c,(a3)+
  4039.  move.w d3,(a1)+
  4040.  move.w d3,(a3)+
  4041.  eor.w #$8000,d3
  4042.  
  4043.  move.w #$106,(a1)+
  4044.  move.w #$106,(a3)+
  4045.  move.w #$2c42,d5
  4046.  or.w d3,d5
  4047.  and.w #$fffe,d5
  4048.  move.w d5,(a1)+
  4049.  move.w d5,(a3)+
  4050.  bsr do32
  4051.  
  4052.  move.w #$106,(a1)+
  4053.  move.w #$106,(a3)+
  4054.  move.w #$4c42,d5
  4055.  or.w d3,d5
  4056.  and.w #$fffe,d5
  4057.  move.w d5,(a1)+
  4058.  move.w d5,(a3)+
  4059.  bsr do32
  4060.  
  4061.  move.w #$106,(a1)+
  4062.  move.w #$106,(a3)+
  4063.  move.w #$6c42,d5
  4064.  or.w d3,d5
  4065.  and.w #$fffe,d5
  4066.  move.w d5,(a1)+
  4067.  move.w d5,(a3)+
  4068.  bsr do32
  4069.  
  4070.  
  4071.  move.l #$1060c42,(a1)+
  4072.  move.l #$1060c42,(a3)+
  4073.  move.w #$19e,(a1)+
  4074.  move.w (a5),(a1)+
  4075.  move.w #$19e,(a3)+
  4076.  move.w (a5)+,(a3)+
  4077.  
  4078. **********************************
  4079.  
  4080.  adda.w #104*4,a0
  4081.  adda.w #104*4,a2
  4082.  dbra d0,.fillcop
  4083.  
  4084.  move.w #$48,fetchstart
  4085.  move.w #$88,fetchstop
  4086.  move.w #$2cb1,winstart
  4087.  move.w #$2c91,winstop
  4088.  move.w #-24,modulo
  4089.  move.w #-24,modulo+4
  4090.  
  4091.  move.l #nullspr,d0
  4092.  move.w d0,s4l
  4093.  move.w d0,s5l
  4094.  move.w d0,s6l
  4095.  move.w d0,s7l
  4096.  swap d0
  4097.  move.w d0,s4h
  4098.  move.w d0,s5h
  4099.  move.w d0,s6h
  4100.  move.w d0,s7h 
  4101.  
  4102. ; move.l #borders,d0
  4103. ; move.w d0,s0l
  4104. ; swap d0
  4105. ; move.w d0,s0h
  4106. ; move.l #borders+2592,d0
  4107. ; move.w d0,s1l
  4108. ; swap d0
  4109. ; move.w d0,s1h
  4110. ; move.l #borders+2592*2,d0
  4111. ; move.w d0,s2l
  4112. ; swap d0
  4113. ; move.w d0,s2h
  4114. ; move.l #borders+2592*3,d0
  4115. ; move.w d0,s3l
  4116. ; swap d0
  4117. ; move.w d0,s3h
  4118.  
  4119.  
  4120.  move.l scrn,a0
  4121.  add.l #40,a0
  4122.  move.l scrn,a1
  4123.  add.l #160,a1
  4124.  move.l scrn,a2
  4125.  add.l #280,a2
  4126.  move.l #smallscrntab,a3
  4127.  move.w #191,d7    ; counter
  4128.  move.w #0,d1    ; xpos
  4129. .plotscrnloop:
  4130.  move.b (a3)+,d0
  4131.  move.w d1,d2
  4132.  asr.w #3,d2
  4133.  move.b d1,d3
  4134.  not.b d3
  4135.  bclr.b d3,-40(a0,d2.w)
  4136.  bclr.b d3,(a0,d2.w)
  4137.  bclr.b d3,40(a0,d2.w)
  4138.  bclr.b d3,-40(a1,d2.w)
  4139.  bclr.b d3,(a1,d2.w)
  4140.  bclr.b d3,40(a1,d2.w)
  4141.  bclr.b d3,-40(a2,d2.w)
  4142.  btst #0,d0
  4143.  beq.s .nobp1
  4144.  bset.b d3,-40(a0,d2.w)
  4145. .nobp1:
  4146.  btst #1,d0
  4147.  beq.s .nobp2
  4148.  bset.b d3,(a0,d2.w)
  4149. .nobp2:
  4150.  btst #2,d0
  4151.  beq.s .nobp3
  4152.  bset.b d3,40(a0,d2.w)
  4153. .nobp3:
  4154.  btst #3,d0
  4155.  beq.s .nobp4
  4156.  bset.b d3,-40(a1,d2.w)
  4157. .nobp4:
  4158.  btst #4,d0
  4159.  beq.s .nobp5
  4160.  bset.b d3,(a1,d2.w)
  4161. .nobp5:
  4162.  btst #5,d0
  4163.  beq.s .nobp6
  4164.  bset.b d3,40(a1,d2.w)
  4165. .nobp6:
  4166.  btst #6,d0
  4167.  beq.s .nobp7
  4168.  bset.b d3,-40(a2,d2.w)
  4169. .nobp7:
  4170.  
  4171.  addq #1,d1
  4172.  
  4173.  dbra d7,.plotscrnloop
  4174.  
  4175.  
  4176.  rts
  4177.  
  4178. putinlargescr:
  4179.  
  4180.  move.l #$1000000,statskip
  4181.  move.l #$fffffffe,statskip+4
  4182.  
  4183.  move.l #healthpal,a5
  4184. ; move.l COPSCRN1,a0
  4185. ; move.l COPSCRN2,a2
  4186.  move.w #scrheight-1,d0
  4187.  move.l #0,d6
  4188.  move.w #0,d3
  4189.  move.w #$29df,startwait
  4190.  move.w #$2b01,endwait
  4191. .fillcop
  4192.  move.w #$180,d1
  4193.  
  4194.  move.l a0,a1
  4195.  move.l a2,a3
  4196.  move.w #$10c,(a1)+
  4197.  move.w #$10c,(a3)+
  4198.  move.w d3,(a1)+
  4199.  move.w d3,(a3)+
  4200.  eor.w #$8000,d3
  4201.  
  4202.  move.w #$106,(a1)+
  4203.  move.w #$106,(a3)+
  4204.  move.w #$2c42,d5
  4205.  or.w d3,d5
  4206.  and.w #$fffe,d5
  4207.  move.w d5,(a1)+
  4208.  move.w d5,(a3)+
  4209.  bsr do32
  4210.  
  4211.  move.w #$106,(a1)+
  4212.  move.w #$106,(a3)+
  4213.  move.w #$4c42,d5
  4214.  or.w d3,d5
  4215.  and.w #$fffe,d5
  4216.  move.w d5,(a1)+
  4217.  move.w d5,(a3)+
  4218.  bsr do32
  4219.  
  4220.  move.w #$106,(a1)+
  4221.  move.w #$106,(a3)+
  4222.  move.w #$6c42,d5
  4223.  or.w d3,d5
  4224.  and.w #$fffe,d5
  4225.  move.w d5,(a1)+
  4226.  move.w d5,(a3)+
  4227.  bsr do32
  4228.  
  4229.  move.w startwait,(a1)+
  4230.  move.w #$fffe,(a1)+
  4231.  move.w endwait,(a1)+
  4232.  move.w #$ff00,(a1)+
  4233.  move.w startwait,(a3)+
  4234.  move.w #$fffe,(a3)+
  4235.  move.w endwait,(a3)+
  4236.  move.w #$ff00,(a3)+
  4237.  
  4238. ; move.l $1fe0000,(a1)+
  4239. ; move.l $1fe0000,(a3)+
  4240. ; move.l $1fe0000,(a1)+
  4241. ; move.l $1fe0000,(a3)+
  4242.  
  4243.  
  4244.  add.w #$300,startwait
  4245.  add.w #$300,endwait
  4246.  
  4247. ; move.l #$1060c42,(a1)+
  4248. ; move.l #$1060c42,(a3)+
  4249. ; move.w #$19e,(a1)+
  4250. ; move.w (a5),(a1)+
  4251. ; move.w #$19e,(a3)+
  4252. ; move.w (a5)+,(a3)+
  4253.  
  4254. **********************************
  4255.  
  4256.  adda.w #104*4,a0
  4257.  adda.w #104*4,a2
  4258.  dbra d0,.fillcop
  4259.  
  4260.  move.w #$38,fetchstart
  4261.  move.w #$b8,fetchstop
  4262.  move.w #$2c81,winstart
  4263.  move.w #$2cc1,winstop
  4264.  move.w #-40,modulo
  4265.  move.w #-40,modulo+4
  4266.  
  4267.  move.l #nullspr,d0
  4268.  move.w d0,s0l
  4269.  move.w d0,s1l
  4270.  move.w d0,s2l
  4271.  move.w d0,s3l
  4272.  move.w d0,s4l
  4273.  move.w d0,s5l
  4274.  move.w d0,s6l
  4275.  move.w d0,s7l
  4276.  swap d0
  4277.  move.w d0,s0h
  4278.  move.w d0,s1h
  4279.  move.w d0,s2h
  4280.  move.w d0,s3h
  4281.  move.w d0,s4h
  4282.  move.w d0,s5h
  4283.  move.w d0,s6h
  4284.  move.w d0,s7h 
  4285.  
  4286.  move.l scrn,a0
  4287.  move.l a0,a1
  4288.  move.l a0,a2
  4289.  add.l #40,a0
  4290.  add.l #160,a1
  4291.  add.l #280,a2
  4292.  move.l #scrntab,a3
  4293.  move.w #319,d7    ; counter
  4294.  move.w #0,d1    ; xpos
  4295. .plotscrnloop:
  4296.  move.b (a3)+,d0
  4297.  move.w d1,d2
  4298.  asr.w #3,d2
  4299.  move.b d1,d3
  4300.  not.b d3
  4301.  bclr.b d3,-40(a0,d2.w)
  4302.  bclr.b d3,(a0,d2.w)
  4303.  bclr.b d3,40(a0,d2.w)
  4304.  bclr.b d3,-40(a1,d2.w)
  4305.  bclr.b d3,(a1,d2.w)
  4306.  bclr.b d3,40(a1,d2.w)
  4307.  bclr.b d3,-40(a2,d2.w)
  4308.  btst #0,d0
  4309.  beq.s .nobp1
  4310.  bset.b d3,-40(a0,d2.w)
  4311. .nobp1:
  4312.  btst #1,d0
  4313.  beq.s .nobp2
  4314.  bset.b d3,(a0,d2.w)
  4315. .nobp2:
  4316.  btst #2,d0
  4317.  beq.s .nobp3
  4318.  bset.b d3,40(a0,d2.w)
  4319. .nobp3:
  4320.  btst #3,d0
  4321.  beq.s .nobp4
  4322.  bset.b d3,-40(a1,d2.w)
  4323. .nobp4:
  4324.  btst #4,d0
  4325.  beq.s .nobp5
  4326.  bset.b d3,(a1,d2.w)
  4327. .nobp5:
  4328.  btst #5,d0
  4329.  beq.s .nobp6
  4330.  bset.b d3,40(a1,d2.w)
  4331. .nobp6:
  4332.  btst #6,d0
  4333.  beq.s .nobp7
  4334.  bset.b d3,-40(a2,d2.w)
  4335. .nobp7:
  4336.  
  4337.  addq #1,d1
  4338.  
  4339.  dbra d7,.plotscrnloop
  4340.  
  4341.  rts
  4342.  
  4343. CLEARKEYBOARD:
  4344.  move.l #KeyMap,a5
  4345.  moveq #0,d0
  4346.  move.w #15,d1
  4347. clrloo:
  4348.  move.l d0,(a5)+
  4349.  move.l d0,(a5)+
  4350.  move.l d0,(a5)+
  4351.  move.l d0,(a5)+
  4352.  dbra d1,clrloo
  4353.  rts
  4354.  
  4355. READCONTROLS: dc.w 0
  4356.  
  4357. tstststst: dc.w 0
  4358.  
  4359. BollocksRoom:
  4360.  dc.w -1
  4361.  ds.l 50
  4362.  
  4363. GUNYOFFS:
  4364.  dc.w 20
  4365.  dc.w 20
  4366.  dc.w 0
  4367.  dc.w 20
  4368.  dc.w 20
  4369.  dc.w 0
  4370.  dc.w 0
  4371.  dc.w 20
  4372.  
  4373. PLR1_BOBBLEY: dc.l 0
  4374. PLR2_BOBBLEY: dc.l 0
  4375.  
  4376. IVEWONTEXT:
  4377. ;      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  4378.  dc.b 'Enemy Player Vanquished!                '
  4379.  dc.b '                                        '
  4380.  dc.b 'Enemy Player Vanquished!                '
  4381.  dc.b '                                        '
  4382.  
  4383.  dc.b 'Oooh, that one must have hurt!          '
  4384.  dc.b '                                        '
  4385.  dc.b 'Oooh, that one must have hurt!          '
  4386.  dc.b '                                        '
  4387.  
  4388.  dc.b 'Opponent IS toast!                      '
  4389.  dc.b '                                        '
  4390.  dc.b 'Opponent IS toast!                      '
  4391.  dc.b '                                        '
  4392.  
  4393.  dc.b 'Does it hurt? DOES it? DOES IT?!?       '
  4394.  dc.b '                                        '
  4395.  dc.b 'Does it hurt? DOES it? DOES IT?!?       '
  4396.  dc.b '                                        '
  4397.  
  4398.  dc.b "Gosh, I",39,"m dreadfully sorry, old chap; didn't see you there!                     "
  4399.  dc.b "Gosh, I",39,"m dreadfully sorry, old chap; didn't see you there!                     "
  4400.  
  4401.  dc.b 'Now go away before I taunt you a second time.                                   '
  4402.  dc.b 'Now go away before I taunt you a second time.                                   '
  4403.  
  4404.  dc.b 'Eh, sorry about that there mate, didn',39,'t know it was loaded, know worra mean?    '
  4405.  dc.b 'Eh, sorry about that there mate, didn',39,'t know it was loaded, know worra mean?    '
  4406.  
  4407.  dc.b 'Stand and deliver, your money or...  oh. Never mind.                            ' 
  4408.  dc.b 'Stand and deliver, your money or...  oh. Never mind.                            '
  4409.  
  4410.  dc.b 'Thank you for your kind interest, I look forward to your custom in future lives.' 
  4411.  dc.b 'Thank you for your kind interest, I look forward to your custom in future lives.' 
  4412.  
  4413.  
  4414. USEPLR1:
  4415.  
  4416. ***********************************
  4417.  
  4418.  move.l PLR1_Obj,a0 
  4419.  move.b #4,16(a0)
  4420.  move.l ObjectPoints,a1
  4421.  move.l #ObjRotated,a2
  4422.  move.w (a0),d0
  4423.  move.l PLR1_xoff,(a1,d0.w*8)
  4424.  move.l PLR1_zoff,4(a1,d0.w*8)
  4425.  move.l PLR1_Roompt,a1
  4426.  
  4427.  moveq #0,d2
  4428.  move.b damagetaken(a0),d2
  4429.  beq .notbeenshot
  4430.  
  4431.  moveq #0,d4
  4432.  move.w ImpactX(a0),d3
  4433.  beq.s .notwist
  4434.  move.w d2,d4
  4435. .notwist:
  4436.  add.w d3,PLR1s_xspdval
  4437.  move.w ImpactZ(a0),d3
  4438.  beq.s .notwist2
  4439.  move.w d2,d4
  4440. .notwist2:
  4441.  add.w d3,PLR1s_zspdval
  4442.  move.w ImpactY(a0),d3
  4443.  ext.l d3
  4444.  asl.l #8,d3
  4445.  add.l d3,PLR1s_yvel
  4446.  
  4447.  move.w #0,ImpactX(a0)
  4448.  move.w #0,ImpactY(a0)
  4449.  move.w #0,ImpactZ(a0)
  4450.  
  4451.  jsr GetRand
  4452.  muls d4,d0
  4453.  asr.l #8,d0
  4454.  asr.l #4,d0
  4455.  add.w d0,PLR1s_angspd
  4456.  
  4457.  move.l #7*2116,hitcol
  4458.  sub.w d2,PLAYERONEHEALTH
  4459.  movem.l d0-d7/a0-a6,-(a7)
  4460.  move.w #$fffa,IDNUM
  4461.  move.w #19,Samplenum
  4462.  clr.b notifplaying
  4463.  move.w #0,Noisex
  4464.  move.w #0,Noisez
  4465.  move.w #60,Noisevol
  4466.  jsr MakeSomeNoise
  4467.  
  4468.  movem.l (a7)+,d0-d7/a0-a6
  4469.  
  4470. .notbeenshot
  4471.  move.b #0,damagetaken(a0)
  4472.  move.b #10,numlives(a0)
  4473.  
  4474.  move.w p1_angpos,Facing(a0)
  4475.  move.b PLR1_StoodInTop,ObjInTop(a0)
  4476.  
  4477.  move.w (a1),12(a0)
  4478.  move.w (a1),d2
  4479.  move.l #ZoneBrightTable,a1
  4480.  move.l (a1,d2.w*4),d2
  4481.  tst.b PLR1_StoodInTop
  4482.  bne.s .okinbott
  4483.  swap d2
  4484. .okinbott:
  4485.  
  4486.  move.w d2,2(a0)
  4487.  
  4488.  
  4489.  move.l p1_yoff,d0
  4490.  move.l p1_height,d1
  4491.  asr.l #1,d1
  4492.  add.l d1,d0
  4493.  asr.l #7,d0
  4494.  move.w d0,4(a0)
  4495.  
  4496.  tst.w PLAYERONEHEALTH
  4497.  bgt.s .okh1
  4498.  move.w #-1,12(a0)
  4499. .okh1:
  4500.  
  4501.  
  4502. ***********************************
  4503.  
  4504.  move.l PLR2_Obj,a0 
  4505.  move.b #5,16(a0)
  4506.  
  4507.  move.w p2_angpos,d0
  4508.  and.w #8190,d0
  4509.  move.w d0,Facing(a0)
  4510. ; 
  4511. ; jsr ViewpointToDraw
  4512. ; asl.w #2,d0
  4513. ; moveq #0,d1
  4514. ; move.b p2_bobble,d1
  4515. ; not.b d1
  4516. ; lsr.b #3,d1
  4517. ; and.b #$3,d1
  4518. ; add.w d1,d0
  4519. ; move.w d0,10(a0)
  4520. ; move.w #10,8(a0)
  4521. ; 
  4522.  
  4523.  move.l ObjectPoints,a1
  4524.  move.l #ObjRotated,a2
  4525.  move.w (a0),d0
  4526.  move.l PLR2_xoff,(a1,d0.w*8)
  4527.  move.l PLR2_zoff,4(a1,d0.w*8)
  4528.  move.l PLR2_Roompt,a1
  4529.  
  4530.  moveq #0,d2
  4531.  move.b damagetaken(a0),d2
  4532.  beq .notbeenshot2
  4533.  move.w ImpactX(a0),d3
  4534.  add.w d3,PLR2s_xspdval
  4535.  move.w ImpactZ(a0),d3
  4536.  add.w d3,PLR2s_zspdval
  4537.  move.w ImpactY(a0),d3
  4538.  ext.l d3
  4539.  asl.l #8,d3
  4540.  add.l d3,PLR2s_yvel
  4541.  
  4542.  move.w #0,ImpactX(a0)
  4543.  move.w #0,ImpactY(a0)
  4544.  move.w #0,ImpactZ(a0)
  4545.  
  4546.  sub.w d2,PLAYERTWOHEALTH
  4547.  
  4548.  
  4549. .notbeenshot2
  4550.  move.b #0,damagetaken(a0)
  4551.  move.b #10,numlives(a0)
  4552.  
  4553.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4554.  
  4555.  move.w (a1),12(a0)
  4556.  move.w (a1),d2
  4557.  move.l #ZoneBrightTable,a1
  4558.  move.l (a1,d2.w*4),d2
  4559.  tst.b PLR2_StoodInTop
  4560.  bne.s .okinbott2
  4561.  swap d2
  4562. .okinbott2:
  4563.  
  4564.  move.w d2,2(a0)
  4565.  
  4566.  move.l p2_yoff,d0
  4567.  move.l p2_height,d1
  4568.  asr.l #1,d1
  4569.  add.l d1,d0
  4570.  asr.l #7,d0
  4571.  move.w d0,4(a0)
  4572.  
  4573.  jsr ViewpointToDraw
  4574.  add.l d0,d0
  4575.  
  4576.  move.l LINKFILE,a6
  4577.  add.l #PLR2ALIEN,a6
  4578.  move.w (a6),d7
  4579.  move.w d7,d1
  4580.  
  4581.  move.l LINKFILE,a6
  4582.  add.l #AlienStats,a6
  4583.  muls #AlienStatLen,d1
  4584.  add.l d1,a6
  4585.  move.b A_GFXType+1(a6),VECOBJ
  4586.  cmp.w #1,A_GFXType(a6)
  4587.  bne.s .NOSIDES2
  4588.  
  4589.  moveq #0,d0
  4590.  
  4591. .NOSIDES2:
  4592.  
  4593.  move.l LINKFILE,a6
  4594.  
  4595.  add.l #AlienAnimData,a6
  4596.  
  4597.  move.w d7,d1
  4598.  muls #A_AnimLen,d1
  4599.  add.l d1,a6
  4600.  
  4601. ; move.l ANIMPOINTER,a6
  4602.  
  4603.  muls #A_OptLen,d0
  4604.  add.w d0,a6
  4605.  
  4606.  move.w SecTimer(a0),d1
  4607.  move.w d1,d2
  4608.  muls #A_FrameLen,d1
  4609.  
  4610.  addq #1,d2
  4611.  
  4612.  move.w d2,d3
  4613.  muls #A_FrameLen,d3
  4614.  tst.b (a6,d3.w)
  4615.  bge.s .noendanim
  4616.  move.w #0,d2
  4617. .noendanim
  4618.  move.w d2,SecTimer(a0)
  4619.  
  4620.  move.w d2,d1
  4621.  
  4622.  muls #A_FrameLen,d1
  4623.  
  4624.  move.l #0,8(a0)
  4625.  move.b (a6,d1.w),9(a0)
  4626.  move.b 1(a6,d1.w),d0
  4627.  ext.w d0
  4628.  bgt.s .noflip
  4629.  move.b #128,10(a0)
  4630.  neg.w d0
  4631. .noflip:
  4632.  sub.w #1,d0
  4633.  move.b d0,11(a0)
  4634.  
  4635.  move.w #-1,6(a0)
  4636.  cmp.b #1,VECOBJ
  4637.  beq.s .nosize
  4638.  bgt.s .setlight
  4639.  move.w 2(a6,d1.w),6(a0)
  4640.  bra.s .ddone
  4641.  
  4642. .nosize
  4643.  
  4644. ; move.l #$00090001,8(a0)
  4645.  
  4646.  bra.s .ddone
  4647.  
  4648. .setlight:
  4649.  move.w 2(a6,d1.w),6(a0)
  4650.  
  4651.  move.b VECOBJ,d1
  4652.  or.b d1,10(a0)
  4653.  
  4654. .ddone:
  4655.  
  4656.  
  4657.  tst.w PLAYERTWOHEALTH
  4658.  bgt.s .okh
  4659.  move.w #-1,12(a0)
  4660. .okh:
  4661.  
  4662.  
  4663. **********************************
  4664.  
  4665.  move.l PLR1_Obj,a0
  4666.  
  4667.  ifeq CHEESEY
  4668.  
  4669.  tst.w PLAYERONEHEALTH
  4670.  bgt.s .notdead
  4671.  
  4672.  move.w #-1,12+128(a0)
  4673.  rts
  4674.  
  4675. .notdead: 
  4676.  
  4677.  move.l PLR1_Roompt,a1
  4678.  
  4679.  move.w Facing(a0),d0
  4680.  add.w #4096,d0
  4681.  and.w #8190,d0
  4682.  move.w d0,Facing+128(a0)
  4683.  
  4684.  move.w (a1),12+128(a0)
  4685.  move.w (a1),GraphicRoom+128(a0)
  4686.  
  4687.  moveq #0,d0
  4688.  move.b p1_gunselected,d0
  4689.  
  4690.  move.l LINKFILE,a1
  4691.  add.l #GunObjects,a1
  4692.  move.w (a1,d0.w*2),d0
  4693.  
  4694.  move.b d0,TypeOfThing+128(a0)
  4695.  move.b #1,128+16(a0)
  4696.  
  4697.  move.w (a0),d0
  4698.  move.w 128(a0),d1
  4699.  move.l ObjectPoints,a1
  4700.  move.l (a1,d0.w*8),(a1,d1.w*8)
  4701.  move.l 4(a1,d0.w*8),4(a1,d1.w*8)
  4702.  
  4703.  st WhichAnim+128(a0)
  4704.  
  4705.  move.l p1_yoff,d0
  4706.  move.l p1_height,d1
  4707.  asr.l #2,d1
  4708.  add.l #10*128,d1
  4709.  add.l d1,d0
  4710.  asr.l #7,d0
  4711.  move.w d0,4+128(a0)
  4712.  move.l PLR1_BOBBLEY,d1
  4713.  asr.l #8,d1
  4714.  move.l d1,d0
  4715.  asr.l #1,d0
  4716.  add.l d0,d1
  4717.  add.w d1,4+128(a0)
  4718.  
  4719.  move.b ObjInTop(a0),ObjInTop+128(a0)
  4720.  
  4721.  endc
  4722.  
  4723.  ifne CHEESEY
  4724.  move.w #-1,12+128(a0)
  4725.  endc
  4726.  
  4727.  rts
  4728.  
  4729. ***************************************************
  4730. **************************************************
  4731.  
  4732. USEPLR2:
  4733.  
  4734. ***********************************
  4735.  
  4736.  move.l PLR2_Obj,a0 
  4737.  move.b #5,16(a0)
  4738.  move.l ObjectPoints,a1
  4739.  move.l #ObjRotated,a2
  4740.  move.w (a0),d0
  4741.  move.l PLR2_xoff,(a1,d0.w*8)
  4742.  move.l PLR2_zoff,4(a1,d0.w*8)
  4743.  move.l PLR2_Roompt,a1
  4744.  
  4745.  moveq #0,d2
  4746.  move.b damagetaken(a0),d2
  4747.  beq .notbeenshot
  4748.  
  4749.  moveq #0,d4
  4750.  move.w ImpactX(a0),d3
  4751.  beq.s .notwist
  4752.  move.w d2,d4
  4753. .notwist:
  4754.  add.w d3,PLR2s_xspdval
  4755.  move.w ImpactZ(a0),d3
  4756.  beq.s .notwist2
  4757.  move.w d2,d4
  4758. .notwist2:
  4759.  add.w d3,PLR2s_zspdval
  4760.  
  4761.  jsr GetRand
  4762.  muls d4,d0
  4763.  asr.l #8,d0
  4764.  asr.l #4,d0
  4765.  add.w d0,PLR2s_angspd
  4766.  
  4767.  move.l #7*2116,hitcol
  4768.  sub.w d2,PLAYERTWOHEALTH
  4769.  
  4770.  
  4771.  movem.l d0-d7/a0-a6,-(a7)
  4772.  move.w #19,Samplenum
  4773.  clr.b notifplaying
  4774.  move.w #$fffa,IDNUM
  4775.  move.w #0,Noisex
  4776.  move.w #0,Noisez
  4777.  move.w #60,Noisevol
  4778.  jsr MakeSomeNoise
  4779.  
  4780.  movem.l (a7)+,d0-d7/a0-a6
  4781.  
  4782. .notbeenshot
  4783.  move.b #0,damagetaken(a0)
  4784.  move.b #10,numlives(a0)
  4785.  
  4786.  move.w p2_angpos,Facing(a0)
  4787.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4788.  
  4789.  move.w (a1),12(a0)
  4790.  move.w (a1),d2
  4791.  move.l #ZoneBrightTable,a1
  4792.  move.l (a1,d2.w*4),d2
  4793.  tst.b PLR2_StoodInTop
  4794.  bne.s .okinbott
  4795.  swap d2
  4796. .okinbott:
  4797.  
  4798.  move.w d2,2(a0)
  4799.  
  4800.  move.l PLR2_yoff,d0
  4801.  move.l p2_height,d1
  4802.  asr.l #1,d1
  4803.  add.l d1,d0
  4804.  asr.l #7,d0
  4805.  move.w d0,4(a0)
  4806.  
  4807.  tst.w PLAYERTWOHEALTH
  4808.  bgt.s .okh55
  4809.  move.w #-1,12(a0)
  4810. .okh55:
  4811.  
  4812. ***********************************
  4813.  
  4814.  move.l PLR1_Obj,a0 
  4815.  move.b #4,16(a0)
  4816.  
  4817.  move.w PLR1_angpos,d0
  4818.  and.w #8190,d0
  4819.  move.w d0,Facing(a0)
  4820. ; 
  4821. ; jsr ViewpointToDraw
  4822. ; asl.w #2,d0
  4823. ; moveq #0,d1
  4824. ; move.b p2_bobble,d1
  4825. ; not.b d1
  4826. ; lsr.b #3,d1
  4827. ; and.b #$3,d1
  4828. ; add.w d1,d0
  4829. ; move.w d0,10(a0)
  4830. ; move.w #10,8(a0)
  4831. ; 
  4832.  
  4833.  move.l ObjectPoints,a1
  4834.  move.l #ObjRotated,a2
  4835.  move.w (a0),d0
  4836.  move.l PLR1_xoff,(a1,d0.w*8)
  4837.  move.l PLR1_zoff,4(a1,d0.w*8)
  4838.  move.l PLR1_Roompt,a1
  4839.  
  4840.  moveq #0,d2
  4841.  move.b damagetaken(a0),d2
  4842.  beq .notbeenshot2
  4843.  
  4844.  move.w ImpactX(a0),d3
  4845.  add.w d3,PLR1s_xspdval
  4846.  move.w ImpactZ(a0),d3
  4847.  add.w d3,PLR1s_zspdval
  4848.  
  4849.  sub.w d2,PLAYERONEHEALTH
  4850.  
  4851.  
  4852. .notbeenshot2
  4853.  move.b #0,damagetaken(a0)
  4854.  move.b #10,numlives(a0)
  4855.  
  4856.  move.b PLR1_StoodInTop,ObjInTop(a0)
  4857.  
  4858.  move.w (a1),12(a0)
  4859.  move.w (a1),d2
  4860.  move.l #ZoneBrightTable,a1
  4861.  move.l (a1,d2.w*4),d2
  4862.  tst.b PLR1_StoodInTop
  4863.  bne.s .okinbott2
  4864.  swap d2
  4865. .okinbott2:
  4866.  
  4867.  move.w d2,2(a0)
  4868.  
  4869.  move.l p1_yoff,d0
  4870.  move.l p1_height,d1
  4871.  asr.l #1,d1
  4872.  add.l d1,d0
  4873.  asr.l #7,d0
  4874.  move.w d0,4(a0)
  4875.  
  4876.  jsr ViewpointToDraw
  4877.  add.l d0,d0
  4878.  
  4879.  move.l LINKFILE,a6
  4880.  add.l #PLR1ALIEN,a6
  4881.  move.w (a6),d7
  4882.  move.w d7,d1
  4883.  
  4884.  move.l LINKFILE,a6
  4885.  add.l #AlienStats,a6
  4886.  muls #AlienStatLen,d1
  4887.  add.l d1,a6
  4888.  move.b A_GFXType+1(a6),VECOBJ
  4889.  cmp.w #1,A_GFXType(a6)
  4890.  bne.s .NOSIDES2
  4891.  
  4892.  moveq #0,d0
  4893.  
  4894. .NOSIDES2:
  4895.  
  4896.  move.l LINKFILE,a6
  4897.  
  4898.  add.l #AlienAnimData,a6
  4899.  
  4900.  move.w d7,d1
  4901.  muls #A_AnimLen,d1
  4902.  add.l d1,a6
  4903.  
  4904. ; move.l ANIMPOINTER,a6
  4905.  
  4906.  muls #A_OptLen,d0
  4907.  add.w d0,a6
  4908.  
  4909.  move.w SecTimer(a0),d1
  4910.  move.w d1,d2
  4911.  muls #A_FrameLen,d1
  4912.  
  4913.  addq #1,d2
  4914.  
  4915.  move.w d2,d3
  4916.  muls #A_FrameLen,d3
  4917.  tst.b (a6,d3.w)
  4918.  bge.s .noendanim
  4919.  move.w #0,d2
  4920. .noendanim
  4921.  move.w d2,SecTimer(a0)
  4922.  
  4923.  move.w d2,d1
  4924.  
  4925.  muls #A_FrameLen,d1
  4926.  
  4927.  move.l #0,8(a0)
  4928.  move.b (a6,d1.w),9(a0)
  4929.  move.b 1(a6,d1.w),d0
  4930.  ext.w d0
  4931.  bgt.s .noflip
  4932.  move.b #128,10(a0)
  4933.  neg.w d0
  4934. .noflip:
  4935.  sub.w #1,d0
  4936.  move.b d0,11(a0)
  4937.  
  4938.  move.w #-1,6(a0)
  4939.  cmp.b #1,VECOBJ
  4940.  beq.s .nosize
  4941.  bgt.s .setlight
  4942.  move.w 2(a6,d1.w),6(a0)
  4943.  bra.s .ddone
  4944.  
  4945. .nosize
  4946.  
  4947. ; move.l #$00090001,8(a0)
  4948.  
  4949.  bra.s .ddone
  4950.  
  4951. .setlight:
  4952.  move.w 2(a6,d1.w),6(a0)
  4953.  
  4954.  move.b VECOBJ,d1
  4955.  or.b d1,10(a0)
  4956.  
  4957. .ddone:
  4958.  
  4959.  tst.w PLAYERONEHEALTH
  4960.  bgt.s .okh
  4961.  move.w #-1,12(a0)
  4962. .okh:
  4963.  
  4964. **********************************
  4965.  
  4966.  move.l PLR2_Obj,a0
  4967.  
  4968.  ifeq CHEESEY
  4969.  
  4970.  tst.w PLAYERTWOHEALTH
  4971.  bgt.s .notdead
  4972.  
  4973.  move.w #-1,12+64(a0)
  4974.  rts
  4975.  
  4976. .notdead: 
  4977.  move.l PLR2_Roompt,a1
  4978.  
  4979.  move.w Facing(a0),d0
  4980.  add.w #4096,d0
  4981.  and.w #8190,d0
  4982.  move.w d0,Facing+64(a0)
  4983.  
  4984.  move.w (a1),12+64(a0)
  4985.  move.w (a1),GraphicRoom+64(a0)
  4986.  
  4987.  moveq #0,d0
  4988.  move.b p2_gunselected,d0
  4989.  
  4990.  move.l LINKFILE,a1
  4991.  add.l #GunObjects,a1
  4992.  move.w (a1,d0.w*2),d0
  4993.  
  4994.  move.b d0,TypeOfThing+64(a0)
  4995.  move.b #1,64+16(a0)
  4996.  
  4997.  move.w (a0),d0
  4998.  move.w 64(a0),d1
  4999.  move.l ObjectPoints,a1
  5000.  move.l (a1,d0.w*8),(a1,d1.w*8) 
  5001.  move.l 4(a1,d0.w*8),4(a1,d1.w*8) 
  5002.  
  5003.  st WhichAnim+64(a0)
  5004.  
  5005.  move.l p2_yoff,d0
  5006.  move.l p2_height,d1
  5007.  asr.l #2,d1
  5008.  add.l #10*128,d1
  5009.  add.l d1,d0
  5010.  asr.l #7,d0
  5011.  move.w d0,4+64(a0)
  5012.  move.l PLR2_BOBBLEY,d1
  5013.  asr.l #8,d1
  5014.  move.l d1,d0
  5015.  asr.l #1,d0
  5016.  add.l d0,d1
  5017.  add.w d1,4+64(a0)
  5018.  
  5019.  move.b ObjInTop(a0),ObjInTop+64(a0)
  5020.  
  5021.  endc
  5022.  
  5023.  ifne CHEESEY
  5024.  
  5025.  move.w #-1,12+64(a0)
  5026.  endc
  5027.  
  5028.  rts
  5029.  
  5030.  
  5031.  
  5032. GunSelected: dc.b 0
  5033.  even
  5034.  
  5035.  
  5036. GunData: dc.l 0
  5037.  
  5038.  
  5039. protA: dc.w 0
  5040.  
  5041. Path:
  5042. ; incbin "testpath"
  5043. endpath:
  5044. pathpt: dc.l Path
  5045.  
  5046.  
  5047. PLR1KEYS: dc.b 0
  5048. PLR1PATH: dc.b 0
  5049. PLR1MOUSE: dc.b -1
  5050. PLR1JOY: dc.b 0
  5051. PLR2KEYS: dc.b 0
  5052. PLR2PATH: dc.b 0
  5053. PLR2MOUSE: dc.b -1
  5054. PLR2JOY: dc.b 0
  5055.  
  5056.  even
  5057.  
  5058. PLR1_bobble: dc.w 0
  5059. PLR2_bobble: dc.w 0
  5060. xwobble: dc.l 0
  5061. xwobxoff: dc.w 0
  5062.  
  5063. xwobzoff: dc.w 0
  5064.  
  5065. PLR1_Control:
  5066.  
  5067. ; Take a snapshot of everything.
  5068.  
  5069.  move.l PLR1_xoff,d2
  5070.  move.l d2,PLR1_oldxoff
  5071.  move.l d2,oldx
  5072.  move.l PLR1_zoff,d3
  5073.  move.l d3,PLR1_oldzoff
  5074.  move.l d3,oldz
  5075.  move.l p1_xoff,d0
  5076.  move.l d0,PLR1_xoff
  5077.  move.l d0,newx
  5078.  move.l p1_zoff,d1
  5079.  move.l d1,newz
  5080.  move.l d1,PLR1_zoff
  5081.  
  5082.  move.l p1_height,PLR1_height
  5083.  
  5084.  sub.l d2,d0
  5085.  sub.l d3,d1
  5086.  move.l d0,xdiff
  5087.  move.l d1,zdiff
  5088.  move.w p1_angpos,d0
  5089.  move.w d0,PLR1_angpos
  5090.  
  5091.  move.l #SineTable,a1
  5092.  move.w (a1,d0.w),PLR1_sinval
  5093.  add.w #2048,d0
  5094.  and.w #8190,d0
  5095.  move.w (a1,d0.w),PLR1_cosval
  5096.  
  5097.  move.l p1_yoff,d0
  5098.  move.w p1_bobble,d1
  5099.  move.w (a1,d1.w),d1
  5100.  move.w d1,d3
  5101.  ble.s .notnegative
  5102.  neg.w d1
  5103. .notnegative:
  5104.  add.w #16384,d1
  5105.  asr.w #4,d1
  5106.  
  5107.  tst.b PLR1_Ducked
  5108.  bne.s .notdouble
  5109.  tst.b PLR1_Squished
  5110.  bne.s .notdouble
  5111.  add.w d1,d1
  5112. .notdouble
  5113.  ext.l d1
  5114.  
  5115.  move.l d1,PLR1_BOBBLEY
  5116.  
  5117.  move.l PLR1_height,d4
  5118.  sub.l d1,d4
  5119.  add.l d1,d0
  5120.  
  5121.  cmp.b #'s',mors
  5122.  beq.s .otherwob
  5123.  asr.w #6,d3
  5124.  ext.l d3
  5125.  move.l d3,xwobble
  5126.  move.w PLR1_sinval,d1
  5127.  muls d3,d1
  5128.  move.w PLR1_cosval,d2
  5129.  muls d3,d2
  5130.  swap d1
  5131.  swap d2
  5132.  asr.w #7,d1
  5133.  move.w d1,xwobxoff
  5134.  asr.w #7,d2
  5135.  neg.w d2
  5136.  move.w d2,xwobzoff
  5137. .otherwob
  5138.  
  5139.  move.l d0,PLR1_yoff
  5140.  move.l d0,newy
  5141.  move.l d0,oldy
  5142.  
  5143.  move.l d4,thingheight
  5144.  move.l #40*256,StepUpVal
  5145.  tst.b PLR1_Squished
  5146.  bne.s .smallstep
  5147.  tst.b PLR1_Ducked
  5148.  beq.s .okbigstep
  5149. .smallstep
  5150.  move.l #10*256,StepUpVal
  5151. .okbigstep:
  5152.  
  5153.  move.l #$1000000,StepDownVal
  5154.  
  5155.  move.l PLR1_Roompt,a0
  5156.  move.w ToTelZone(a0),d0
  5157.  blt .noteleport
  5158.  
  5159.  move.w ToTelX(a0),newx
  5160.  move.w ToTelZ(a0),newz
  5161.  
  5162.  move.l PLR1_Obj,a0
  5163.  move.w (a0),CollId
  5164.  
  5165.  move.l #%111111111111111111,CollideFlags
  5166.  jsr Collision
  5167.  tst.b hitwall
  5168.  beq.s .teleport
  5169.  
  5170.  move.w PLR1_xoff,newx
  5171.  move.w PLR1_zoff,newz
  5172.  bra .noteleport
  5173.  
  5174. .teleport:
  5175.  
  5176.  st PLR1_TELEPORTED
  5177.  
  5178.  move.l PLR1_Roompt,a0
  5179.  move.w ToTelZone(a0),d0
  5180.  move.w ToTelX(a0),PLR1_xoff
  5181.  move.w ToTelZ(a0),PLR1_zoff
  5182.  move.l PLR1_yoff,d1
  5183.  sub.l ToZoneFloor(a0),d1
  5184.  move.l ZoneAdds,a0
  5185.  move.l (a0,d0.w*4),a0
  5186.  add.l LEVELDATA,a0
  5187.  move.l a0,PLR1_Roompt
  5188.  add.l ToZoneFloor(a0),d1
  5189.  move.l d1,PLR1s_yoff
  5190.  move.l d1,PLR1_yoff
  5191.  move.l d1,PLR1s_tyoff
  5192.  move.l PLR1_xoff,PLR1s_xoff
  5193.  move.l PLR1_zoff,PLR1s_zoff
  5194.  
  5195.  SAVEREGS
  5196.  move.w #0,Noisex
  5197.  move.w #0,Noisez
  5198.  move.w #26,Samplenum
  5199.  move.w #100,Noisevol
  5200.  move.w #$fff9,IDNUM
  5201.  jsr MakeSomeNoise
  5202.  GETREGS
  5203.  
  5204.  bra .cantmove
  5205.  
  5206. .noteleport:
  5207.  
  5208.  move.l PLR1_Roompt,objroom
  5209.  move.w #%100000000,wallflags
  5210.  move.b PLR1_StoodInTop,StoodInTop
  5211.  
  5212.  move.l #%1011111110111000011,CollideFlags
  5213.  move.l PLR1_Obj,a0
  5214.  move.w (a0),CollId
  5215.  
  5216.  jsr Collision
  5217.  tst.b hitwall
  5218.  beq.s .nothitanything
  5219.  move.w oldx,PLR1_xoff
  5220.  move.w oldz,PLR1_zoff
  5221.  move.l PLR1_xoff,PLR1s_xoff
  5222.  move.l PLR1_zoff,PLR1s_zoff
  5223.  bra .cantmove
  5224. .nothitanything:
  5225.  
  5226.  move.w #40,extlen
  5227.  move.b #0,awayfromwall
  5228.  
  5229.  clr.b exitfirst
  5230.  clr.b wallbounce
  5231.  bsr MoveObject
  5232.  move.b StoodInTop,PLR1_StoodInTop
  5233.  move.l objroom,PLR1_Roompt
  5234.  move.w newx,PLR1_xoff
  5235.  move.w newz,PLR1_zoff
  5236.  move.l PLR1_xoff,PLR1s_xoff
  5237.  move.l PLR1_zoff,PLR1s_zoff
  5238.  
  5239. .cantmove:
  5240.  
  5241.  move.l PLR1_Roompt,a0
  5242.  
  5243.  move.l ToZoneFloor(a0),d0
  5244.  tst.b PLR1_StoodInTop
  5245.  beq.s notintop
  5246.  move.l ToUpperFloor(a0),d0
  5247. notintop:
  5248.  
  5249.  adda.w #ToZonePts,a0
  5250.  sub.l PLR1_height,d0
  5251.  move.l d0,PLR1s_tyoff
  5252.  move.w p1_angpos,tmpangpos
  5253.  
  5254. ; move.l (a0),a0        ; jump to viewpoint list
  5255.  * A0 is pointing at a pointer to list of points to rotate
  5256.  move.w (a0)+,d1
  5257.  ext.l d1
  5258.  add.l PLR1_Roompt,d1
  5259.  move.l d1,PLR1_PointsToRotatePtr
  5260.  tst.b (a0)+
  5261.  sne.s DRAWNGRAPHTOP
  5262.  beq.s nobackgraphics
  5263.  cmp.b #'s',mors
  5264.  beq.s nobackgraphics
  5265.  move.l a0,-(a7)
  5266.  jsr putinbackdrop 
  5267.  move.l (a7)+,a0
  5268. nobackgraphics:
  5269.  
  5270.  move.b (a0)+,PLR1_Echo
  5271.  
  5272.  adda.w #10,a0
  5273.  move.l a0,PLR1_ListOfGraphRooms
  5274.  
  5275. *************************************************
  5276.  rts
  5277.  
  5278. DRAWNGRAPHTOP
  5279.  dc.w 0 
  5280. tstzone: dc.l 0
  5281. CollId: dc.w 0
  5282.  
  5283. PLR2_Control:
  5284.  
  5285. ; Take a snapshot of everything.
  5286.  
  5287.  move.l PLR2_xoff,d2
  5288.  move.l d2,PLR2_oldxoff
  5289.  move.l d2,oldx
  5290.  move.l PLR2_zoff,d3
  5291.  move.l d3,PLR2_oldzoff
  5292.  move.l d3,oldz
  5293.  move.l p2_xoff,d0
  5294.  move.l d0,PLR2_xoff
  5295.  move.l d0,newx
  5296.  move.l p2_zoff,d1
  5297.  move.l d1,newz
  5298.  move.l d1,PLR2_zoff
  5299.  
  5300.  move.l p2_height,PLR2_height
  5301.  
  5302.  sub.l d2,d0
  5303.  sub.l d3,d1
  5304.  move.l d0,xdiff
  5305.  move.l d1,zdiff
  5306.  move.w p2_angpos,d0
  5307.  move.w d0,PLR2_angpos
  5308.  
  5309.  move.l #SineTable,a1
  5310.  move.w (a1,d0.w),PLR2_sinval
  5311.  add.w #2048,d0
  5312.  and.w #8190,d0
  5313.  move.w (a1,d0.w),PLR2_cosval
  5314.  
  5315.  move.l p2_yoff,d0
  5316.  move.w p2_bobble,d1
  5317.  move.w (a1,d1.w),d1
  5318.  move.w d1,d3
  5319.  ble.s .notnegative
  5320.  neg.w d1
  5321. .notnegative:
  5322.  add.w #16384,d1
  5323.  asr.w #4,d1
  5324.  
  5325.  tst.b PLR2_Ducked
  5326.  bne.s .notdouble
  5327.  tst.b PLR2_Squished
  5328.  bne.s .notdouble
  5329.  add.w d1,d1
  5330. .notdouble
  5331.  ext.l d1
  5332.  
  5333.  move.l d1,PLR2_BOBBLEY
  5334.  
  5335.  move.l PLR2_height,d4
  5336.  sub.l d1,d4
  5337.  add.l d1,d0
  5338.  
  5339.  cmp.b #'s',mors
  5340.  bne.s .otherwob
  5341.  asr.w #6,d3
  5342.  ext.l d3
  5343.  move.l d3,xwobble
  5344.  move.w PLR2_sinval,d1
  5345.  muls d3,d1
  5346.  move.w PLR2_cosval,d2
  5347.  muls d3,d2
  5348.  swap d1
  5349.  swap d2
  5350.  asr.w #7,d1
  5351.  move.w d1,xwobxoff
  5352.  asr.w #7,d2
  5353.  neg.w d2
  5354.  move.w d2,xwobzoff
  5355. .otherwob
  5356.  
  5357.  move.l d0,PLR2_yoff
  5358.  move.l d0,newy
  5359.  move.l d0,oldy
  5360.  
  5361.  move.l d4,thingheight
  5362.  move.l #40*256,StepUpVal
  5363.  tst.b PLR2_Squished
  5364.  bne.s .smallstep
  5365.  tst.b PLR2_Ducked
  5366.  beq.s .okbigstep
  5367. .smallstep:
  5368.  move.l #10*256,StepUpVal
  5369. .okbigstep:
  5370.  
  5371.  move.l #$1000000,StepDownVal
  5372.  
  5373.  move.l PLR2_Roompt,a0
  5374.  move.w ToTelZone(a0),d0
  5375.  blt .noteleport
  5376.  
  5377.  move.w ToTelX(a0),newx
  5378.  move.w ToTelZ(a0),newz
  5379.  move.w PLR2_Obj,a0
  5380.  move.w (a0),CollId
  5381.  move.l #%111111111111111111,CollideFlags
  5382.  jsr Collision
  5383.  tst.b hitwall
  5384.  beq.s .teleport
  5385.  
  5386.  move.w PLR2_xoff,newx
  5387.  move.w PLR2_zoff,newz
  5388.  bra .noteleport
  5389.  
  5390. .teleport:
  5391.  
  5392.  st PLR2_TELEPORTED
  5393.  
  5394.  move.l PLR2_Roompt,a0
  5395.  move.w ToTelZone(a0),d0
  5396.  move.w ToTelX(a0),PLR2_xoff
  5397.  move.w ToTelZ(a0),PLR2_zoff
  5398.  move.l PLR2_yoff,d1
  5399.  sub.l ToZoneFloor(a0),d1
  5400.  move.l ZoneAdds,a0
  5401.  move.l (a0,d0.w*4),a0
  5402.  add.l LEVELDATA,a0
  5403.  move.l a0,PLR2_Roompt
  5404.  add.l ToZoneFloor(a0),d1
  5405.  move.l d1,PLR2s_yoff
  5406.  move.l d1,PLR2_yoff
  5407.  move.l d1,PLR2s_tyoff
  5408.  move.l PLR2_xoff,PLR2s_xoff
  5409.  move.l PLR2_zoff,PLR2s_zoff
  5410.  
  5411.  SAVEREGS
  5412.  move.w #0,Noisex
  5413.  move.w #0,Noisez
  5414.  move.w #26,Samplenum
  5415.  move.w #100,Noisevol
  5416.  move.w #$fff9,IDNUM
  5417.  jsr MakeSomeNoise
  5418.  GETREGS
  5419.  
  5420.  bra .cantmove
  5421.  
  5422. .noteleport:
  5423.  
  5424.  move.l PLR2_Roompt,objroom
  5425.  move.w #%100000000000,wallflags
  5426.  move.b PLR2_StoodInTop,StoodInTop
  5427.  
  5428.  move.l #%1011111010111100011,CollideFlags
  5429.  move.l PLR2_Obj,a0
  5430.  move.w (a0),CollId
  5431.  
  5432.  jsr Collision
  5433.  tst.b hitwall
  5434.  beq.s .nothitanything
  5435.  move.w oldx,PLR2_xoff
  5436.  move.w oldz,PLR2_zoff
  5437.  move.l PLR2_xoff,PLR2s_xoff
  5438.  move.l PLR2_zoff,PLR2s_zoff
  5439.  bra .cantmove
  5440. .nothitanything:
  5441.  
  5442.  move.w #40,extlen
  5443.  move.b #0,awayfromwall
  5444.  
  5445.  clr.b exitfirst
  5446.  clr.b wallbounce
  5447.  bsr MoveObject
  5448.  move.b StoodInTop,PLR2_StoodInTop
  5449.  move.l objroom,PLR2_Roompt
  5450.  move.w newx,PLR2_xoff
  5451.  move.w newz,PLR2_zoff
  5452.  move.l PLR2_xoff,PLR2s_xoff
  5453.  move.l PLR2_zoff,PLR2s_zoff
  5454.  
  5455. .cantmove
  5456.  
  5457.  move.l PLR2_Roompt,a0
  5458.  
  5459.  move.l ToZoneFloor(a0),d0
  5460.  tst.b PLR2_StoodInTop
  5461.  beq.s .notintop
  5462.  move.l ToUpperFloor(a0),d0
  5463. .notintop:
  5464.  
  5465.  adda.w #ToZonePts,a0
  5466.  sub.l PLR2_height,d0
  5467.  move.l d0,PLR2s_tyoff
  5468.  move.w p2_angpos,tmpangpos
  5469.  
  5470. ; move.l (a0),a0        ; jump to viewpoint list
  5471.  * A0 is pointing at a pointer to list of points to rotate
  5472.  move.w (a0)+,d1
  5473.  ext.l d1
  5474.  add.l PLR2_Roompt,d1
  5475.  move.l d1,PLR2_PointsToRotatePtr
  5476.  tst.b (a0)+
  5477.  sne.s DRAWNGRAPHTOP
  5478.  beq.s .nobackgraphics
  5479.  cmp.b #'s',mors
  5480.  bne.s .nobackgraphics
  5481.  move.l a0,-(a7)
  5482.  jsr putinbackdrop 
  5483.  move.l (a7)+,a0
  5484. .nobackgraphics:
  5485.  
  5486.  move.b (a0)+,PLR2_Echo
  5487.  
  5488.  adda.w #10,a0
  5489.  move.l a0,PLR2_ListOfGraphRooms
  5490.  
  5491. *****************************************************
  5492.  rts
  5493.  
  5494.  
  5495. KeyMap: ds.b 256
  5496.  
  5497. fillscrnwater:
  5498.  dc.w 0
  5499. DONTDOGUN:
  5500.  dc.w 0
  5501.  
  5502. ;temptemp: ds.l 200
  5503. ;temptempptr: dc.l 0
  5504.  
  5505. DrawDisplay:
  5506.  
  5507. ; move.l #temptemp,temptempptr
  5508.  
  5509.  clr.b fillscrnwater
  5510.  
  5511.  move.l #SineTable,a0
  5512.  move.w angpos,d0
  5513.  move.w (a0,d0.w),d6
  5514.  adda.w #2048,a0
  5515.  move.w (a0,d0.w),d7
  5516.  move.w d6,sinval
  5517.  move.w d7,cosval
  5518.  
  5519.  move.l yoff,d0
  5520.  asr.l #8,d0
  5521.  move.w d0,d1
  5522.  add.w #256-32,d1
  5523.  and.w #255,d1
  5524.  move.w d1,wallyoff
  5525.  move.l yoff,d0
  5526.  asr.l #6,d0
  5527.  move.w d0,flooryoff
  5528.  
  5529.  move.w xoff,d6
  5530.  move.w d6,d3
  5531.  asr.w #1,d3
  5532.  add.w d3,d6
  5533.  asr.w #1,d6
  5534.  move.w d6,xoff34
  5535.  
  5536.  move.w zoff,d6
  5537.  move.w d6,d3
  5538.  asr.w #1,d3
  5539.  add.w d3,d6
  5540.  asr.w #1,d6
  5541.  move.w d6,zoff34
  5542.  
  5543.  bsr RotateLevelPts
  5544.  bsr RotateObjectPts
  5545.  bsr CalcPLR1InLine
  5546.  
  5547.  cmp.b #'n',mors
  5548.  bne.s doplr2too
  5549.  move.l PLR2_Obj,a0
  5550.  move.w #-1,12(a0)
  5551.  move.w #-1,GraphicRoom(a0)
  5552.  bra noplr2either
  5553.  
  5554. doplr2too:
  5555.  bsr CalcPLR2InLine
  5556. noplr2either:
  5557.  
  5558.  move.l endoflist,a0
  5559. ; move.w #-1,(a0)
  5560.  
  5561. ; move.l #FinalOrder,a0
  5562.  
  5563.  
  5564. subroomloop:
  5565. ; move.w (a0)+,d7
  5566.  move.w -(a0),d7
  5567.  blt jumpoutofrooms
  5568.  
  5569. ; bsr setlrclip
  5570. ; move.w leftclip,d0
  5571. ; cmp.w rightclip,d0
  5572. ; bge subroomloop
  5573.  move.l a0,-(a7)
  5574.  
  5575.  move.l ZoneAdds,a0
  5576.  move.l (a0,d7.w*4),a0
  5577.  add.l LEVELDATA,a0
  5578.  move.l ToZoneRoof(a0),SplitHeight
  5579.  move.l a0,ROOMBACK
  5580.  
  5581.  move.l ZoneGraphAdds,a0
  5582.  move.l 4(a0,d7.w*8),a2
  5583.  move.l (a0,d7.w*8),a0
  5584.  
  5585.  add.l LEVELGRAPHICS,a0
  5586.  add.l LEVELGRAPHICS,a2
  5587.  move.l a2,ThisRoomToDraw+4
  5588.  move.l a0,ThisRoomToDraw
  5589.  
  5590.  move.l ListOfGraphRooms,a1
  5591.  
  5592.  
  5593.  
  5594. finditit:
  5595.  tst.w (a1)
  5596.  blt nomoretodoatall
  5597.  cmp.w (a1),d7
  5598.  beq outoffind
  5599.  adda.w #8,a1
  5600.  bra finditit
  5601.  
  5602. outoffind:
  5603.  
  5604.  move.l a1,-(a7)
  5605.  
  5606.  
  5607.  move.w #0,leftclip
  5608.  move.w RIGHTX,rightclip
  5609.  moveq #0,d7
  5610.  move.w 2(a1),d7
  5611.  blt.s outofrcliplop
  5612.  move.l LEVELCLIPS,a0
  5613.  lea (a0,d7.l*2),a0
  5614.  
  5615.  tst.w (a0)
  5616.  blt outoflcliplop
  5617.  
  5618.  bsr NEWsetlclip
  5619.  
  5620. intolcliplop:        ; clips
  5621.  tst.w (a0)
  5622.  blt outoflcliplop
  5623.  
  5624.  bsr NEWsetlclip 
  5625.  bra intolcliplop
  5626.  
  5627. outoflcliplop:
  5628.  
  5629.  addq #2,a0
  5630.  
  5631.  tst.w (a0)
  5632.  blt outofrcliplop
  5633.  
  5634.  bsr NEWsetrclip
  5635.  
  5636. intorcliplop:        ; clips
  5637.  tst.w (a0)
  5638.  blt outofrcliplop
  5639.  
  5640.  bsr NEWsetrclip 
  5641.  bra intorcliplop
  5642.  
  5643. outofrcliplop:
  5644.  
  5645.  
  5646.  move.w leftclip,d0
  5647.  ext.l d0
  5648.  move.l d0,leftclip-2
  5649.  
  5650.  cmp.w RIGHTX,d0
  5651.  bge dontbothercantseeit
  5652.  move.w rightclip,d1
  5653.  ext.l d1
  5654.  move.l d1,rightclip-2
  5655.  blt dontbothercantseeit
  5656.  cmp.w d1,d0
  5657.  bge dontbothercantseeit
  5658.  
  5659.  move.l yoff,d0
  5660.  cmp.l SplitHeight,d0
  5661.  blt botfirst
  5662.  
  5663.  move.l ThisRoomToDraw+4,a0
  5664.  cmp.l LEVELGRAPHICS,a0
  5665.  beq.s noupperroom
  5666.  st DOUPPER
  5667.  
  5668.  move.l ROOMBACK,a1
  5669.  move.l ToUpperRoof(a1),TOPOFROOM
  5670.  move.l ToUpperFloor(a1),BOTOFROOM
  5671.  
  5672.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5673.  bsr dothisroom
  5674. noupperroom:
  5675.  move.l ThisRoomToDraw,a0
  5676.  clr.b DOUPPER
  5677.  move.l #CurrentPointBrights,PointBrightsPtr
  5678.  
  5679.  move.l ROOMBACK,a1
  5680.  move.l ToZoneRoof(a1),d0
  5681.  move.l d0,TOPOFROOM
  5682.  move.l ToZoneFloor(a1),d1
  5683.  move.l d1,BOTOFROOM
  5684.  
  5685.  move.l ToZoneWater(a1),d2
  5686.  cmp.l yoff,d2
  5687.  blt.s .abovefirst
  5688.  move.l d2,BEFOREWATTOP
  5689.  move.l d1,BEFOREWATBOT
  5690.  move.l d2,AFTERWATBOT
  5691.  move.l d0,AFTERWATTOP
  5692.  bra.s .belowfirst
  5693. .abovefirst:
  5694.  move.l d0,BEFOREWATTOP
  5695.  move.l d2,BEFOREWATBOT
  5696.  move.l d1,AFTERWATBOT
  5697.  move.l d2,AFTERWATTOP
  5698. .belowfirst:
  5699.  
  5700.  bsr dothisroom
  5701.  
  5702.  bra dontbothercantseeit
  5703. botfirst:
  5704.  
  5705.  move.l ThisRoomToDraw,a0
  5706.  clr.b DOUPPER
  5707.  move.l #CurrentPointBrights,PointBrightsPtr
  5708.  
  5709.  move.l ROOMBACK,a1
  5710.  move.l ToZoneRoof(a1),d0
  5711.  move.l d0,TOPOFROOM
  5712.  move.l ToZoneFloor(a1),d1
  5713.  move.l d1,BOTOFROOM
  5714.  
  5715.  move.l ToZoneWater(a1),d2
  5716.  cmp.l yoff,d2
  5717.  blt.s .abovefirst
  5718.  move.l d2,BEFOREWATTOP
  5719.  move.l d1,BEFOREWATBOT
  5720.  move.l d2,AFTERWATBOT
  5721.  move.l d0,AFTERWATTOP
  5722.  bra.s .belowfirst
  5723. .abovefirst:
  5724.  move.l d0,BEFOREWATTOP
  5725.  move.l d2,BEFOREWATBOT
  5726.  move.l d1,AFTERWATBOT
  5727.  move.l d2,AFTERWATTOP
  5728. .belowfirst:
  5729.  
  5730.  
  5731.  bsr dothisroom
  5732.  move.l ThisRoomToDraw+4,a0
  5733.  cmp.l LEVELGRAPHICS,a0
  5734.  beq.s noupperroom2
  5735.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5736.  
  5737.  move.l ROOMBACK,a1
  5738.  move.l ToUpperRoof(a1),TOPOFROOM
  5739.  move.l ToUpperFloor(a1),BOTOFROOM
  5740.  
  5741.  st DOUPPER
  5742.  bsr dothisroom
  5743. noupperroom2:
  5744.  
  5745. dontbothercantseeit:
  5746. pastemp:
  5747.  
  5748.  move.l (a7)+,a1
  5749.  move.l ThisRoomToDraw,a0
  5750.  move.w (a0),d7
  5751.  
  5752.  adda.w #8,a1
  5753.  bra finditit
  5754.  
  5755. nomoretodoatall:
  5756.  
  5757.  move.l (a7)+,a0
  5758.  
  5759.  bra subroomloop
  5760.  
  5761. jumpoutofrooms:
  5762.  
  5763.  
  5764.  tst.b DONTDOGUN
  5765.  bne NOGUNLOOK
  5766.  
  5767.  cmp.b #'s',mors
  5768.  beq.s drawslavegun
  5769.  
  5770.  moveq #0,d0
  5771.  move.b PLR1_GunSelected,d0
  5772.  moveq #0,d1
  5773.  move.b PLR1_GunFrame,d1
  5774. ; bsr DRAWINGUN
  5775.  bra drawngun
  5776.  
  5777. drawslavegun
  5778.  moveq #0,d0
  5779.  move.b PLR2_GunSelected,d0
  5780.  moveq #0,d1
  5781.  move.b PLR2_GunFrame,d1
  5782. ; bsr DRAWINGUN
  5783.  
  5784. drawngun:
  5785.  
  5786. NOGUNLOOK:
  5787.  
  5788.  moveq #0,d1
  5789.  move.b PLR1_GunFrame,d1
  5790.  sub.w TempFrames,d1
  5791.  bgt.s .nn
  5792.  moveq #0,d1
  5793. .nn
  5794.  move.b d1,PLR1_GunFrame
  5795.  
  5796.  ble.s .donefire
  5797.  sub.b #1,PLR1_GunFrame
  5798. .donefire:
  5799.  
  5800.  moveq #0,d1
  5801.  move.b PLR2_GunFrame,d1
  5802.  sub.w TempFrames,d1
  5803.  bgt.s .nn2
  5804.  moveq #0,d1
  5805. .nn2
  5806.  move.b d2,PLR2_GunFrame
  5807.  
  5808.  ble.s .donefire2
  5809.  sub.b #1,PLR2_GunFrame
  5810. .donefire2:
  5811.  
  5812.  tst.b DOANYWATER
  5813.  beq.s nowaterfull
  5814.  
  5815.  move.w #231,d0
  5816.  move.l FASTBUFFER,a0
  5817.  tst.b fillscrnwater
  5818.  beq nowaterfull
  5819.  bgt oknothalf
  5820.  moveq #119,d0
  5821.  add.l #320*120*2,a0
  5822. oknothalf:
  5823.  
  5824.  bclr.b #1,$bfe001
  5825.  
  5826.  move.l TexturePal,a2
  5827.  add.l #256*40,a2
  5828.  moveq #0,d2
  5829.  
  5830.  tst.b FULLSCR
  5831.  bne.s DOALLSCREEN
  5832.  
  5833. DOSOMESCREEN:
  5834.  
  5835.  move.w #159,d0
  5836. .fw:
  5837.  move.w #191,d1
  5838. .fwa:
  5839.  move.b (a0),d2
  5840.  move.b (a2,d2.w),(a0)+
  5841.  dbra d1,.fwa
  5842.  add.w #(320-192),a0
  5843.  dbra d0,.fw
  5844.  rts
  5845.  
  5846. DOALLSCREEN:
  5847.  
  5848. fw:
  5849.  move.w #287,d1
  5850. fwa:
  5851.  move.b (a0),d2
  5852.  move.b (a2,d2.w),(a0)+
  5853.  dbra d1,fwa
  5854.  add.w #32,a0
  5855.  dbra d0,fw
  5856.  
  5857. ; move.l frompt,a0
  5858. ; add.l #104*4*60,a0
  5859. ; 
  5860. ; move.w #31,d0
  5861. ;fw:
  5862. ; move.w d5,d1
  5863. ; move.l a0,a1
  5864. ;fwd:
  5865. ;val SET 104*4*19
  5866. ; REPT 20
  5867. ; and.w #$ff,val(a1)
  5868. ;val SET val-104*4
  5869. ; ENDR
  5870. ; sub.l #104*4*20,a1
  5871. ; dbra d1,fwd
  5872. ; addq #4,a0
  5873. ; dbra d0,fw
  5874. ;
  5875. ; addq #4,a0
  5876. ;
  5877. ; move.w #31,d0
  5878. ;sw:
  5879. ; move.w d5,d1
  5880. ; move.l a0,a1
  5881. ;swd:
  5882. ;val SET 104*4*19
  5883. ; REPT 20
  5884. ; and.w #$ff,val(a1)
  5885. ;val SET val-104*4
  5886. ; ENDR
  5887. ; sub.l #104*4*20,a1
  5888. ; dbra d1,swd
  5889. ; addq #4,a0
  5890. ; dbra d0,sw
  5891. ;
  5892. ; addq #4,a0
  5893. ;
  5894. ; move.w #31,d0
  5895. ;tw:
  5896. ; move.w d5,d1
  5897. ; move.l a0,a1
  5898. ;twd:
  5899. ;val SET 104*4*19
  5900. ; REPT 20
  5901. ; and.w #$ff,val(a1)
  5902. ;val SET val-104*4
  5903. ; ENDR
  5904. ; sub.l #104*4*20,a1
  5905. ; dbra d1,twd
  5906. ; addq #4,a0
  5907. ; dbra d0,tw
  5908. ;
  5909.  rts
  5910.  
  5911. nowaterfull:
  5912.  bset.b #1,$bfe001
  5913.  rts
  5914.  
  5915. prot9: dc.w 0
  5916.  
  5917. ;TempBuffer: ds.l 100 
  5918.  
  5919. prot8: dc.w 0
  5920.  
  5921. ClipTable: ds.l 30
  5922. EndOfClipPt: dc.l 0
  5923. DOUPPER: dc.w 0
  5924.  
  5925. RealTable:
  5926.  dc.l prot1-78935450
  5927.  dc.l prot2-78935450
  5928.  dc.l prot3-78935450
  5929.  dc.l prot4-78935450
  5930.  dc.l prot5-78935450
  5931.  dc.l prot6-78935450
  5932.  dc.l prot7-78935450
  5933.  dc.l prot8-78935450
  5934.  dc.l prot9-78935450
  5935.  dc.l protA-78935450
  5936.  
  5937. dothisroom
  5938.  
  5939.  move.w (a0)+,d0
  5940.  move.w d0,currzone
  5941.  move.w d0,d1
  5942.  muls #40,d1
  5943.  add.l #BIGMAP,d1
  5944.  move.l d1,BIGPTR
  5945.  move.w d0,d1
  5946.  ext.l d1
  5947.  asl.w #2,d1
  5948.  add.l #COMPACTMAP,d1
  5949.  move.l d1,COMPACTPTR
  5950.  add.l #4,d1
  5951.  cmp.l LASTZONE,d1
  5952.  ble.s .nochange
  5953.  move.l d1,LASTZONE
  5954. .nochange:
  5955.  
  5956.  move.l #ZoneBrightTable,a1
  5957.  move.l (a1,d0.w*4),d1
  5958.  tst.b DOUPPER
  5959.  bne.s .okbot
  5960.  swap d1
  5961. .okbot:
  5962.  move.w d1,ZoneBright
  5963.  
  5964. polyloop:
  5965.  move.w (a0)+,d0
  5966.  move.w d0,WALLIDENT
  5967.  and.w #$ff,d0
  5968.  tst.b d0
  5969.  blt jumpoutofloop
  5970.  beq itsawall
  5971.  cmp.w #3,d0
  5972.  beq itsasetclip
  5973.  blt itsafloor
  5974.  cmp.w #4,d0
  5975.  beq itsanobject
  5976.  cmp.w #5,d0
  5977.  beq itsanarc
  5978.  cmp.w #6,d0
  5979.  beq itsalightbeam
  5980.  cmp.w #7,d0
  5981.  beq.s itswater
  5982.  cmp.w #9,d0
  5983.  ble itsachunkyfloor
  5984.  cmp.w #11,d0
  5985.  ble itsabumpyfloor
  5986.  cmp.w #12,d0
  5987.  beq.s itsbackdrop
  5988.  cmp.w #13,d0
  5989.  beq.s itsaseewall
  5990.  
  5991.  bra polyloop
  5992.  
  5993. itsaseewall:
  5994.  st seethru
  5995.  jsr itsawalldraw
  5996.  bra polyloop
  5997.  
  5998. itsbackdrop:
  5999.  jsr putinbackdrop
  6000.  bra polyloop
  6001.  
  6002. itswater:
  6003.  PROTHCHECK
  6004.  move.w #2,SMALLIT
  6005.  move.w #3,d0
  6006.  clr.b gourfloor
  6007.  move.l #FloorLine,LineToUse
  6008.  st usewater
  6009.  clr.b usebumps
  6010.  jsr itsafloordraw
  6011.  bra polyloop
  6012.  
  6013. itsanarc:
  6014.  jsr CurveDraw
  6015.  bra polyloop
  6016.  
  6017. itsanobject:
  6018.  jsr ObjDraw
  6019.  bra polyloop
  6020.  
  6021. itsalightbeam:
  6022.  jsr LightDraw
  6023.  bra polyloop
  6024.  
  6025. itsabumpyfloor:
  6026.  move.w #1,SMALLIT
  6027.  sub.w #9,d0
  6028.  st usebumps
  6029.  st smoothbumps
  6030.  clr.b usewater
  6031.  move.l #BumpLine,LineToUse
  6032.  jsr itsafloordraw
  6033.  bra polyloop
  6034.  
  6035. itsachunkyfloor:
  6036.  move.w #1,SMALLIT
  6037.  subq.w #7,d0
  6038.  st usebumps
  6039.  sub.w #12,topclip
  6040. ; add.w #10,botclip
  6041.  clr.b smoothbumps
  6042.  clr.b usewater
  6043.  move.l #BumpLine,LineToUse
  6044.  jsr itsafloordraw
  6045.  add.w #12,topclip
  6046. ; sub.w #10,botclip
  6047.  bra polyloop 
  6048.  
  6049. itsafloor:
  6050.  
  6051.  move.l PointBrightsPtr,FloorPtBrights
  6052.  
  6053.  move.w currzone,d1
  6054.  muls #80,d1
  6055.  
  6056.  cmp.w #2,d0
  6057.  bne.s .nfl
  6058.  add.l #2,d1
  6059. .nfl
  6060.  add.l d1,FloorPtBrights
  6061.  
  6062.  move.w #1,SMALLIT
  6063.  
  6064.  movem.l a0/d0,-(a7)
  6065.  move.l $4.w,a6
  6066.  jsr _LVOSuperState(a6)
  6067.  move.l d0,SSTACK
  6068.  movem.l (a7)+,a0/d0
  6069.  
  6070.  move.l #FloorLine,LineToUse
  6071. * 1,2 = floor/roof
  6072.  clr.b usewater
  6073.  clr.b usebumps
  6074.  move.b GOURSEL,gourfloor    
  6075.  jsr itsafloordraw
  6076.  move.l a0,-(a7)
  6077.  move.l $4.w,a6
  6078.  move.l SSTACK,d0
  6079.  jsr _LVOUserState(a6)
  6080.  move.l (a7)+,a0
  6081.  bra polyloop
  6082. itsasetclip:
  6083.  bra polyloop
  6084. itsawall:
  6085.  clr.b seethru
  6086. ; move.l #stripbuffer,a1
  6087.  jsr itsawalldraw
  6088.  bra polyloop
  6089.  
  6090. jumpoutofloop:
  6091.  rts
  6092.  
  6093. LASTZONE: dc.l 0
  6094. COMPACTPTR: dc.l 0
  6095. BIGPTR: dc.l 0
  6096. WALLIDENT: dc.w 0
  6097. SMALLIT: dc.w 0
  6098. GOURSEL: dc.w 0
  6099. ThisRoomToDraw: dc.l 0,0
  6100. SplitHeight: dc.l 0
  6101.  
  6102.  include "ab3:source_4000/OrderZones"
  6103.  
  6104. ReadMouse:
  6105.  move.l #$dff000,a6
  6106.  clr.l d0
  6107.  clr.l d1
  6108.  move.w $a(a6),d0
  6109.  lsr.w #8,d0
  6110.  ext.l d0
  6111.  move.w d0,d3
  6112.  move.w oldmy,d2
  6113.  sub.w d2,d0
  6114.  
  6115.  cmp.w #127,d0
  6116.  blt nonegy
  6117.  move.w #255,d1
  6118.  sub.w d0,d1
  6119.  move.w d1,d0
  6120.  neg.w d0
  6121. nonegy:
  6122.  
  6123.  cmp.w #-127,d0
  6124.  bge nonegy2
  6125.  move.w #255,d1
  6126.  add.w d0,d1
  6127.  move.w d1,d0
  6128. nonegy2:
  6129.  
  6130.  add.b d0,d2
  6131.  add.w d0,oldy2
  6132.  move.w d2,oldmy
  6133.  move.w d2,d0
  6134.  
  6135.  move.w oldy2,d0
  6136.  move.w d0,ymouse
  6137.  
  6138.  clr.l d0
  6139.  clr.l d1
  6140.  move.w $a(a6),d0
  6141.  ext.w d0
  6142.  ext.l d0
  6143.  move.w d0,d3
  6144.  move.w oldmx,d2
  6145.  sub.w d2,d0
  6146.  
  6147.  cmp.w #127,d0
  6148.  blt nonegx
  6149.  move.w #255,d1
  6150.  sub.w d0,d1
  6151.  move.w d1,d0
  6152.  neg.w d0
  6153. nonegx:
  6154.  
  6155.  cmp.w #-127,d0
  6156.  bge nonegx2
  6157.  move.w #255,d1
  6158.  add.w d0,d1
  6159.  move.w d1,d0
  6160. nonegx2:
  6161.  
  6162.  add.b d0,d2
  6163.  move.w d0,d1
  6164.  move.w d2,oldmx
  6165.  
  6166.  move.w #$0,$dff034
  6167.  
  6168.  add.w d0,oldx2
  6169.  move.w oldx2,d0
  6170.  and.w #2047,d0
  6171.  move.w d0,oldx2
  6172.  
  6173.  asl.w #2,d0
  6174.  sub.w prevx,d0
  6175.  add.w d0,prevx
  6176.  add.w d0,angpos
  6177.  move.w #0,lrs
  6178.  rts
  6179.  
  6180. noturn:
  6181.  
  6182. ; got to move lr instead. 
  6183.  
  6184. ; d1 = speed moved l/r
  6185.  
  6186.  move.w d1,lrs
  6187.  
  6188.  rts
  6189.  
  6190. lrs: dc.w 0
  6191. prevx: dc.w 0
  6192.  
  6193. angpos: dc.w 0
  6194. mang: dc.w 0
  6195. oldymouse: dc.w 0
  6196. xmouse: dc.w 0
  6197. ymouse: dc.w 0
  6198. oldx2: dc.w 0
  6199. oldmx: dc.w 0
  6200. oldmy: dc.w 0
  6201. oldy2: dc.w 0
  6202.  
  6203. MAPON: dc.w $0
  6204. REALMAPON: dc.w 0
  6205.  
  6206. RotateLevelPts:
  6207.  
  6208.  tst.b REALMAPON
  6209.  beq ONLYTHELONELY
  6210.  
  6211.  move.w sinval,d6
  6212.  swap d6
  6213.  move.w cosval,d6
  6214.  move.l Points,a3
  6215.  move.l #Rotated,a1
  6216.  move.l #OnScreen,a2
  6217.  move.w xoff,d4
  6218.  asr.w #1,d4
  6219.  move.w zoff,d5
  6220.  asr.w #1,d5
  6221. ; move.w #$c40,$dff106
  6222. ; move.w #$f00,$dff180
  6223.  
  6224.  move.w NumLevPts,d7
  6225.  
  6226.  tst.b FULLSCR
  6227.  bne BIGALL
  6228.  
  6229. pointrotlop2:
  6230.  move.w (a3)+,d0
  6231.  asr.w #1,d0
  6232.  sub.w d4,d0
  6233.  move.w d0,d2
  6234.  move.w (a3)+,d1
  6235.  asr.w #1,d1
  6236.  sub.w d5,d1
  6237.  muls d6,d2
  6238.  swap d6
  6239.  move.w d1,d3
  6240.  muls d6,d3
  6241.  sub.l d3,d2
  6242. ; add.l d2,d2
  6243. ; swap d2
  6244. ; ext.l d2
  6245. ; asl.l #7,d2
  6246.  
  6247.  asr.l #7,d2
  6248.  
  6249.  add.l xwobble,d2
  6250.  move.l d2,(a1)+
  6251.  
  6252.  muls d6,d0
  6253.  swap d6
  6254.  muls d6,d1
  6255.  add.l d0,d1
  6256. ; asl.l #2,d1
  6257. ; swap d1
  6258.  
  6259.  asr.l #8,d1
  6260.  asr.l #6,d1
  6261.  
  6262.  move.l d1,(a1)+
  6263.  
  6264.  tst.l d1
  6265.  bgt.s ptnotbehind
  6266.  tst.l d2
  6267.  bgt.s onrightsomewhere
  6268.  move.w #0,d2
  6269.  bra putin
  6270. onrightsomewhere:
  6271.  move.w RIGHTX,d2
  6272.  ext.l d2
  6273.  bra putin
  6274. ptnotbehind:
  6275.  
  6276.  divs.l d1,d2
  6277.  move.w MIDDLEX,d1
  6278.  ext.l d1
  6279.  add.l d1,d2
  6280. putin:
  6281.  move.w d2,(a2)+
  6282.  
  6283.  dbra d7,pointrotlop2
  6284. outofpointrot:
  6285.   rts
  6286.  
  6287.  
  6288. BIGALL:
  6289.  
  6290. pointrotlop2B:
  6291.  move.w (a3)+,d0
  6292.  asr.w #1,d0
  6293.  sub.w d4,d0
  6294.  move.w d0,d2
  6295.  move.w (a3)+,d1
  6296.  asr.w #1,d1
  6297.  sub.w d5,d1
  6298.  muls d6,d2
  6299.  swap d6
  6300.  move.w d1,d3
  6301.  muls d6,d3
  6302.  sub.l d3,d2
  6303. ; add.l d2,d2
  6304. ; swap d2
  6305. ; ext.l d2
  6306. ; asl.l #7,d2
  6307.  asr.l #7,d2
  6308.  add.l xwobble,d2
  6309.  move.l d2,(a1)+
  6310.  
  6311.  muls d6,d0
  6312.  swap d6
  6313.  muls d6,d1
  6314.  add.l d0,d1
  6315.  
  6316.  divs.l #3,d1
  6317.  asr.l #8,d1
  6318.  asr.l #5,d1
  6319.  
  6320. ; asl.l #3,d1
  6321. ; swap d1
  6322. ; ext.l d1
  6323. ; divs #3,d1
  6324.  move.l d1,(a1)+
  6325.  
  6326.  tst.l d1
  6327.  bgt.s ptnotbehindB
  6328.  tst.l d2
  6329.  bgt.s onrightsomewhereB
  6330.  move.l #0,d2
  6331.  bra putinB
  6332. onrightsomewhereB:
  6333.  move.w RIGHTX,d2
  6334.  ext.l d2
  6335.  bra putinB
  6336. ptnotbehindB:
  6337.  
  6338.  divs.l d1,d2
  6339.  move.w MIDDLEX,d1
  6340.  ext.l d1
  6341.  add.l d1,d2
  6342. putinB:
  6343.  move.w d2,(a2)+
  6344.  
  6345.  dbra d7,pointrotlop2B
  6346.   rts
  6347.  
  6348.  
  6349. ONLYTHELONELY:
  6350.  
  6351.  move.w sinval,d6
  6352.  swap d6
  6353.  move.w cosval,d6
  6354.  
  6355.  move.l PointsToRotatePtr,a0
  6356.  move.l Points,a3
  6357.  move.l #Rotated,a1
  6358.  move.l #OnScreen,a2
  6359.  move.w xoff,d4
  6360.  move.w zoff,d5
  6361.  
  6362. ; move.w #$c40,$dff106
  6363. ; move.w #$f00,$dff180
  6364.  
  6365.  tst.b FULLSCR
  6366.  bne BIGLONELY
  6367.  
  6368. pointrotlop:
  6369.  move.w (a0)+,d7
  6370.  blt outofpointrot
  6371.  
  6372.  move.w (a3,d7*4),d0
  6373.  sub.w d4,d0
  6374.  move.w d0,d2
  6375.  move.w 2(a3,d7*4),d1
  6376.  sub.w d5,d1
  6377.  muls d6,d2
  6378.  swap d6
  6379.  move.w d1,d3
  6380.  muls d6,d3
  6381.  sub.l d3,d2
  6382.  add.l d2,d2
  6383.  swap d2
  6384.  ext.l d2
  6385.  asl.l #7,d2
  6386.  add.l xwobble,d2
  6387.  move.l d2,(a1,d7*8)
  6388.  
  6389.  muls d6,d0
  6390.  swap d6
  6391.  muls d6,d1
  6392.  add.l d0,d1
  6393.  asl.l #1,d1
  6394.  swap d1
  6395. ; ext.l d1
  6396. ; divs #3,d1
  6397.  move.l d1,4(a1,d7*8)
  6398.  
  6399.  tst.w d1
  6400.  bgt.s .ptnotbehind
  6401.  tst.w d2
  6402.  bgt.s .onrightsomewhere
  6403.  move.w #0,d2
  6404.  bra .putin
  6405. .onrightsomewhere:
  6406.  move.w RIGHTX,d2
  6407.  bra .putin
  6408. .ptnotbehind:
  6409.  
  6410.  divs d1,d2
  6411.  add.w MIDDLEX,d2
  6412. .putin:
  6413.  move.w d2,(a2,d7*2)
  6414.  
  6415.  bra pointrotlop
  6416.  
  6417. ; move.w #$c40,$dff106
  6418. ; move.w #$ff0,$dff180
  6419.  
  6420.  rts
  6421.  
  6422. BIGLONELY:
  6423.  
  6424. .pointrotlop:
  6425.  move.w (a0)+,d7
  6426.  blt.s .outofpointrot
  6427.  
  6428.  move.w (a3,d7*4),d0
  6429.  sub.w d4,d0
  6430.  move.w d0,d2
  6431.  move.w 2(a3,d7*4),d1
  6432.  sub.w d5,d1
  6433.  muls d6,d2
  6434.  swap d6
  6435.  move.w d1,d3
  6436.  muls d6,d3
  6437.  sub.l d3,d2
  6438.  add.l d2,d2
  6439.  swap d2
  6440.  ext.l d2
  6441.  asl.l #7,d2
  6442.  add.l xwobble,d2
  6443.  move.l d2,(a1,d7*8)
  6444.  
  6445.  muls d6,d0
  6446.  swap d6
  6447.  muls d6,d1
  6448.  add.l d0,d1
  6449.  asl.l #2,d1
  6450.  swap d1
  6451.  ext.l d1
  6452.  divs #3,d1
  6453.  move.l d1,4(a1,d7*8)
  6454.  
  6455.  tst.w d1
  6456.  bgt.s .ptnotbehind
  6457.  tst.w d2
  6458.  bgt.s .onrightsomewhere
  6459.  move.w #0,d2
  6460.  bra .putin
  6461. .onrightsomewhere:
  6462.  move.w RIGHTX,d2
  6463.  bra .putin
  6464. .ptnotbehind:
  6465.  
  6466.  divs d1,d2
  6467.  add.w MIDDLEX,d2
  6468. .putin:
  6469.  move.w d2,(a2,d7*2)
  6470.  
  6471.  bra .pointrotlop
  6472.  
  6473. .outofpointrot:
  6474. ; move.w #$c40,$dff106
  6475. ; move.w #$ff0,$dff180
  6476.  
  6477.  rts
  6478.  
  6479.  
  6480. PLR1_ObjDists
  6481.  ds.w 250
  6482. PLR2_ObjDists
  6483.  ds.w 250
  6484.  
  6485. CalcPLR1InLine:
  6486.  
  6487.  move.w PLR1_sinval,d5
  6488.  move.w PLR1_cosval,d6
  6489.  move.l ObjectData,a4
  6490.  move.l ObjectPoints,a0
  6491.  move.w NumObjectPoints,d7
  6492.  move.l #PLR1_ObsInLine,a2
  6493.  move.l #PLR1_ObjDists,a3
  6494.  
  6495. .objpointrotlop:
  6496.  
  6497.  cmp.b #3,16(a4)
  6498.  beq.s .itaux
  6499.  
  6500.  move.w (a0),d0
  6501.  sub.w PLR1_xoff,d0
  6502.  move.w 4(a0),d1
  6503.  addq #8,a0
  6504.  
  6505.  tst.w 12(a4)
  6506.  blt .noworkout
  6507.  
  6508.  moveq #0,d2
  6509.  move.b 16(a4),d2
  6510.  ;move.l #ColBoxTable,a6
  6511.  ;lea (a6,d2.w*8),a6
  6512.  
  6513.  sub.w PLR1_zoff,d1
  6514.  move.w d0,d2
  6515.  muls d6,d2
  6516.  move.w d1,d3
  6517.  muls d5,d3
  6518.  sub.l d3,d2
  6519.  add.l d2,d2
  6520.  
  6521.  bgt.s .okh
  6522.  neg.l d2
  6523. .okh:
  6524.  swap d2
  6525.  
  6526.  muls d5,d0
  6527.  muls d6,d1
  6528.  add.l d0,d1
  6529.  asl.l #2,d1
  6530.  swap d1
  6531.  moveq #0,d3
  6532.  
  6533.  tst.w d1
  6534.  ble.s .notinline
  6535.  asr.w #1,d2
  6536.  cmp.w #80,d2
  6537.  bgt.s .notinline
  6538.  
  6539.  st d3
  6540. .notinline
  6541.  move.b d3,(a2)+
  6542.  
  6543.  move.w d1,(a3)+
  6544.  
  6545.  add.w #64,a4
  6546.  dbra d7,.objpointrotlop
  6547.  
  6548.  rts
  6549.  
  6550. .itaux:
  6551.  add.w #64,a4
  6552.  bra .objpointrotlop
  6553.  
  6554. .noworkout:
  6555.  move.b #0,(a2)+
  6556.  move.w #0,(a3)+
  6557.  add.w #64,a4
  6558.  dbra d7,.objpointrotlop
  6559.  rts
  6560.  
  6561.  
  6562. CalcPLR2InLine:
  6563.  
  6564.  move.w PLR2_sinval,d5
  6565.  move.w PLR2_cosval,d6
  6566.  move.l ObjectData,a4
  6567.  move.l ObjectPoints,a0
  6568.  move.w NumObjectPoints,d7
  6569.  move.l #PLR2_ObsInLine,a2
  6570.  move.l #PLR2_ObjDists,a3
  6571.  
  6572. .objpointrotlop:
  6573.  
  6574.  cmp.b #3,16(a4)
  6575.  beq.s .itaux
  6576.  
  6577.  move.w (a0),d0
  6578.  sub.w PLR2_xoff,d0
  6579.  move.w 4(a0),d1
  6580.  addq #8,a0
  6581.  
  6582.  tst.w 12(a4)
  6583.  blt .noworkout
  6584.  
  6585.  moveq #0,d2
  6586.  move.b 16(a4),d2
  6587. ; move.l #ColBoxTable,a6
  6588. ; lea (a6,d2.w*8),a6
  6589.  
  6590.  sub.w PLR2_zoff,d1
  6591.  move.w d0,d2
  6592.  muls d6,d2
  6593.  move.w d1,d3
  6594.  muls d5,d3
  6595.  sub.l d3,d2
  6596.  add.l d2,d2
  6597.  
  6598.  bgt.s .okh
  6599.  neg.l d2
  6600. .okh:
  6601.  swap d2
  6602.  
  6603.  muls d5,d0
  6604.  muls d6,d1
  6605.  add.l d0,d1
  6606.  asl.l #2,d1
  6607.  swap d1
  6608.  moveq #0,d3
  6609.  
  6610.  tst.w d1
  6611.  ble.s .notinline
  6612.  asr.w #1,d2
  6613.  cmp.w (a6),d2
  6614.  bgt.s .notinline
  6615.  
  6616.  st d3
  6617. .notinline
  6618.  move.b d3,(a2)+
  6619.  
  6620.  move.w d1,(a3)+
  6621.  
  6622.  add.w #64,a4
  6623.  dbra d7,.objpointrotlop
  6624.  
  6625.  rts
  6626.  
  6627. .itaux:
  6628.  add.w #64,a4
  6629.  bra .objpointrotlop
  6630.  
  6631. .noworkout:
  6632.  move.w #0,(a3)+
  6633.  move.b #0,(a2)+
  6634.  add.w #64,a4
  6635.  dbra d7,.objpointrotlop
  6636.  rts
  6637.  
  6638.  
  6639. RotateObjectPts:
  6640.  
  6641.  move.w sinval,d5
  6642.  move.w cosval,d6
  6643.  
  6644.  move.l ObjectData,a4
  6645.  move.l ObjectPoints,a0
  6646.  move.w NumObjectPoints,d7
  6647.  move.l #ObjRotated,a1
  6648.  
  6649.  tst.b FULLSCR
  6650.  bne BIGOBJPTS
  6651.  
  6652.  
  6653. .objpointrotlop:
  6654.  
  6655.  cmp.b #3,16(a4)
  6656.  beq.s .itaux
  6657.  
  6658.  move.w (a0),d0
  6659.  sub.w xoff,d0
  6660.  move.w 4(a0),d1
  6661.  addq #8,a0
  6662.  
  6663.  tst.w 12(a4)
  6664.  blt .noworkout
  6665.  
  6666.  sub.w zoff,d1
  6667.  
  6668.  move.w d0,d2
  6669.  muls d6,d2
  6670.  move.w d1,d3
  6671.  muls d5,d3
  6672.  sub.l d3,d2
  6673.  
  6674.  
  6675.  add.l d2,d2
  6676.  swap d2
  6677.  move.w d2,(a1)+
  6678.  
  6679.  muls d5,d0
  6680.  muls d6,d1
  6681.  add.l d0,d1
  6682.  asl.l #1,d1
  6683.  swap d1
  6684. ; ext.l d1
  6685. ; divs #3,d1
  6686.  moveq #0,d3
  6687.  
  6688.  move.w d1,(a1)+
  6689.  ext.l d2
  6690.  asl.l #7,d2
  6691.  add.l xwobble,d2
  6692.  move.l d2,(a1)+
  6693.  
  6694.  dbra d7,.objpointrotlop
  6695.  
  6696.  rts
  6697.  
  6698. .itaux:
  6699.  add.w #64,a4
  6700.  bra .objpointrotlop
  6701.  
  6702. .noworkout:
  6703.   move.l #0,(a1)+
  6704.   move.l #0,(a1)+
  6705.   add.w #64,a4
  6706.   dbra d7,.objpointrotlop
  6707.   rts
  6708.   
  6709. BIGOBJPTS:
  6710.  
  6711. .objpointrotlop:
  6712.  
  6713.  cmp.b #3,16(a4)
  6714.  beq.s .itaux
  6715.  
  6716.  move.w (a0),d0
  6717.  sub.w xoff,d0
  6718.  move.w 4(a0),d1
  6719.  addq #8,a0
  6720.  
  6721.  tst.w 12(a4)
  6722.  blt .noworkout
  6723.  
  6724.  sub.w zoff,d1
  6725.  move.w d0,d2
  6726.  muls d6,d2
  6727.  move.w d1,d3
  6728.  muls d5,d3
  6729.  sub.l d3,d2
  6730.  
  6731.  
  6732.  add.l d2,d2
  6733.  swap d2
  6734.  move.w d2,(a1)+
  6735.  
  6736.  muls d5,d0
  6737.  muls d6,d1
  6738.  add.l d0,d1
  6739.  asl.l #2,d1
  6740.  swap d1
  6741.  ext.l d1
  6742.  divs #3,d1
  6743.  moveq #0,d3
  6744.  
  6745.  move.w d1,(a1)+
  6746.  ext.l d2
  6747.  asl.l #7,d2
  6748.  add.l xwobble,d2
  6749.  move.l d2,(a1)+
  6750.  sub.l xwobble,d2
  6751.  
  6752.  add.w #64,a4
  6753.  dbra d7,.objpointrotlop
  6754.  
  6755.  rts
  6756.  
  6757. .itaux:
  6758.  add.w #64,a4
  6759.  bra .objpointrotlop
  6760.  
  6761. .noworkout:
  6762.   move.l #0,(a1)+
  6763.   move.l #0,(a1)+
  6764.   add.w #64,a4
  6765.   dbra d7,.objpointrotlop
  6766.   rts
  6767.  
  6768. LightDraw:
  6769.  
  6770.  move.w (a0)+,d0
  6771.  move.w (a0)+,d1
  6772.  move.l #Rotated,a1
  6773.  move.w 6(a1,d0.w*8),d2
  6774.  ble.s oneendbehind
  6775.  move.w 6(a1,d1.w*8),d3
  6776.  bgt.s bothendsinfront
  6777.  
  6778. oneendbehind:
  6779.  rts
  6780. bothendsinfront:
  6781.  
  6782.  move.l #OnScreen,a2
  6783.  move.w (a2,d0.w*2),d0
  6784.  bge.s okleftend
  6785.  moveq #0,d0
  6786. okleftend:
  6787.  move.w (a2,d1.w*2),d1
  6788.  bgt.s somevis
  6789.  rts
  6790. somevis:
  6791.  cmp.w RIGHTX,d0
  6792.  blt.s somevis2
  6793.  rts
  6794. somevis2:
  6795.  cmp.w RIGHTX,d1
  6796.  blt.s okrightend
  6797.  move.w RIGHTX,d1
  6798.  subq #1,d1
  6799. okrightend:
  6800.  
  6801.  sub.w d0,d1
  6802.  blt.s wrongbloodywayround
  6803.  move.l TexturePal,a4
  6804.  move.l #objintocop,a1
  6805.  lea (a1,d0.w*2),a1
  6806.  
  6807.  move.l frompt,a3
  6808.  move.w #104*4,d6
  6809.  move.w #79,d2
  6810. lacross:
  6811.  move.w d2,d3
  6812.  move.l a3,a2
  6813.  adda.w (a1)+,a2
  6814. ldown:
  6815.  add.w d6,a2
  6816.  move.w (a2),d7
  6817.  move.w (a4,d7.w*2),(a2)
  6818.  dbra d3,ldown
  6819.  dbra d1,lacross
  6820.  
  6821. wrongbloodywayround:
  6822.  
  6823.  rts
  6824.  
  6825. FaceToPlace: dc.w 0
  6826.  
  6827. Cheese:
  6828.  dc.w 4,15
  6829.  
  6830. FacesList:
  6831.  dc.w 0,4*4
  6832.  dc.w 1,2*4
  6833.  dc.w 0,2*4
  6834.  dc.w 2,2*4
  6835.  dc.w 0,2*4
  6836.  dc.w 1,3*4
  6837.  dc.w 0,2*4
  6838.  dc.w 2,3*4
  6839.  dc.w 0,5*4
  6840.  dc.w 1,2*4
  6841.  dc.w 0,2*4
  6842.  dc.w 2,2*4
  6843.  dc.w 0,2*4
  6844.  dc.w 1,2*4
  6845.  dc.w 0,2*4
  6846.  dc.w 2,3*4
  6847.  dc.w 0,1*4
  6848.  dc.w 1,3*4
  6849.  dc.w 0,1*4
  6850.  dc.w 2,3*4
  6851.  dc.w 0,1*4
  6852.  
  6853. EndOfFacesList:
  6854.  
  6855. FacesPtr:
  6856.  dc.l FacesList
  6857. FacesCounter:
  6858.  dc.w 0
  6859. Expression:
  6860.  dc.w 0
  6861.  
  6862.  
  6863. Energy:
  6864.  dc.w 191
  6865. OldEnergy:
  6866.  dc.w 191
  6867. Ammo: dc.w 63
  6868. OldAmmo: dc.w 63
  6869.  
  6870. FullEnergy:
  6871. ; move.w #127,Energy
  6872. ; move.w #127,OldEnergy
  6873. ; move.l #health,a0
  6874. ; move.l #borders,a1
  6875. ; add.l #25*8*2+6,a1
  6876. ; lea 2592(a1),a2
  6877. ; move.w #127,d0
  6878. ;PutInFull:
  6879. ; move.b (a0)+,(a1)
  6880. ; move.b (a0)+,8(a1)
  6881. ; add.w #16,a1
  6882. ; move.b (a0)+,(a2)
  6883. ; move.b (a0)+,8(a2)
  6884. ; add.w #16,a2
  6885. ; dbra d0,PutInFull
  6886.  
  6887.  rts
  6888.  
  6889. ;EnergyBar:
  6890.  
  6891.  move.w Energy,d0
  6892.  bgt.s .noeneg
  6893.  move.w #0,d0
  6894. .noeneg:
  6895.  move.w d0,Energy
  6896.  
  6897.  cmp.w OldEnergy,d0
  6898.  bne.s gottochange
  6899.  
  6900. NoChange
  6901.  rts
  6902.  
  6903. gottochange:
  6904.   
  6905.  blt LessEnergy
  6906.  cmp.w #127,Energy
  6907.  blt.s NotMax
  6908.  move.w #127,Energy
  6909. NotMax:
  6910.  
  6911.  move.w Energy,d0
  6912.  move.w OldEnergy,d2
  6913.  sub.w d0,d2
  6914.  beq.s NoChange    
  6915.  neg.w d2
  6916.  
  6917.  move.w #127,d3
  6918.  sub.w d0,d3
  6919.  
  6920.  move.l #health,a0
  6921.  lea (a0,d3.w*4),a0
  6922. ; move.l #borders+25*16+6,a1
  6923.  lsl.w #4,d3
  6924.  add.w d3,a1
  6925.  lea 2592(a1),a2
  6926.  
  6927. EnergyRise:
  6928.  move.b (a0)+,(a1)
  6929.  move.b (a0)+,8(a1)
  6930.  add.w #16,a1
  6931.  move.b (a0)+,(a2)
  6932.  move.b (a0)+,8(a2)
  6933.  add.w #16,a2
  6934.  subq #1,d2
  6935.  bgt.s EnergyRise
  6936.  
  6937.  move.w Energy,OldEnergy
  6938.  
  6939.  rts 
  6940.  
  6941. LessEnergy: 
  6942.  move.w OldEnergy,d2
  6943.  sub.w d0,d2
  6944.  
  6945.  move.w #127,d3
  6946.  sub.w OldEnergy,d3
  6947.  
  6948. ; move.l #borders+25*16+6,a1
  6949.  asl.w #4,d3
  6950.  add.w d3,a1
  6951.  lea 2592(a1),a2
  6952.  
  6953. EnergyDrain:
  6954.  move.b #0,(a1)
  6955.  move.b #0,8(a1)
  6956.  move.b #0,(a2)
  6957.  move.b #0,8(a2)
  6958.  add.w #16,a1
  6959.  add.w #16,a2
  6960.  subq #1,d2
  6961.  bgt.s EnergyDrain
  6962.  
  6963.  move.w Energy,OldEnergy
  6964.  
  6965.  rts 
  6966.  
  6967. firstdigit: dc.b 0
  6968. secdigit: dc.b 0
  6969. thirddigit: dc.b 0
  6970.  
  6971.  even
  6972.  
  6973. gunny: dc.w 0
  6974.  
  6975. AmmoBar:
  6976.  
  6977. * Do guns first.
  6978.  
  6979.  move.l #borderchars,a4
  6980.  move.b p1_gunselected,d0 
  6981.  move.l #PLAYERONEGUNS,a5
  6982.  cmp.b #'s',mors
  6983.  bne.s .notplr2
  6984.  move.l #PLAYERTWOGUNS,a5
  6985.  move.b p2_gunselected,d0
  6986. .notplr2:
  6987.  
  6988.  move.b d0,gunny
  6989.  
  6990.  move.w #9,d2
  6991.  moveq #0,d0
  6992. putingunnums:
  6993.  move.w #4,d1
  6994.  move.l a4,a0
  6995.  cmp.b gunny,d0
  6996.  bne.s .notsel
  6997.  add.l #5*10*8*2,a0
  6998.  addq #2,a5
  6999.  bra.s .donesel
  7000. .notsel:
  7001.  tst.w (a5)+
  7002.  beq.s .donesel
  7003.  add.l #5*10*8,a0
  7004. .donesel:
  7005.  move.l SCRNDRAWPT,a1
  7006.  add.w d0,a1
  7007.  add.l #3+(240*40),a1
  7008.  bsr DRAWDIGIT
  7009.  addq #1,d0
  7010.  dbra d2,putingunnums
  7011.  
  7012.  move.w Ammo,d0
  7013.  
  7014.  cmp.w #999,d0
  7015.  blt.s .okammo
  7016.  move.w #999,d0 
  7017. .okammo
  7018.  
  7019.  
  7020.  ext.l d0
  7021.  divs #10,d0
  7022.  swap d0
  7023.  move.b d0,thirddigit
  7024.  swap d0
  7025.  ext.l d0
  7026.  divs #10,d0
  7027.  move.b d0,firstdigit
  7028.  swap d0
  7029.  move.b d0,secdigit
  7030.  
  7031.  move.l #borderchars+15*8*10,a0
  7032.  cmp.w #10,Ammo
  7033.  blt.s .notsmallamo
  7034.  add.l #7*8*10,a0
  7035. .notsmallamo:
  7036.  
  7037.  move.l SCRNDRAWPT,a1
  7038.  add.l #20+238*40,a1
  7039.  move.b firstdigit,d0
  7040.  move.w #6,d1
  7041.  bsr DRAWDIGIT
  7042.  
  7043.  move.l SCRNDRAWPT,a1
  7044.  add.l #21+238*40,a1
  7045.  move.b secdigit,d0
  7046.  move.w #6,d1
  7047.  bsr DRAWDIGIT
  7048.  
  7049.  move.l SCRNDRAWPT,a1
  7050.  add.l #22+238*40,a1
  7051.  move.b thirddigit,d0
  7052.  move.w #6,d1
  7053.  bsr DRAWDIGIT
  7054.  
  7055.  rts
  7056.  
  7057. EnergyBar:
  7058.  move.w Energy,d0
  7059.  bge.s .okpo
  7060.  moveq #0,d0 
  7061. .okpo:
  7062.  
  7063.  cmp.w #999,d0
  7064.  blt.s .okenergy
  7065.  move.w #999,d0 
  7066. .okenergy
  7067.  
  7068.  
  7069.  ext.l d0
  7070.  divs #10,d0
  7071.  swap d0
  7072.  move.b d0,thirddigit
  7073.  swap d0
  7074.  ext.l d0
  7075.  divs #10,d0
  7076.  move.b d0,firstdigit
  7077.  swap d0
  7078.  move.b d0,secdigit
  7079.  
  7080.  move.l #borderchars+15*8*10,a0
  7081.  cmp.w #10,Energy
  7082.  blt.s .notsmallamo
  7083.  add.l #7*8*10,a0
  7084. .notsmallamo:
  7085.  
  7086.  move.l SCRNDRAWPT,a1
  7087.  add.l #34+238*40,a1
  7088.  move.b firstdigit,d0
  7089.  move.w #6,d1
  7090.  bsr DRAWDIGIT
  7091.  
  7092.  move.l SCRNDRAWPT,a1
  7093.  add.l #35+238*40,a1
  7094.  move.b secdigit,d0
  7095.  move.w #6,d1
  7096.  bsr DRAWDIGIT
  7097.  
  7098.  move.l SCRNDRAWPT,a1
  7099.  add.l #36+238*40,a1
  7100.  move.b thirddigit,d0
  7101.  move.w #6,d1
  7102.  bsr DRAWDIGIT
  7103.  
  7104.  move.l SCRNSHOWPT,a1
  7105.  add.l #34+238*40,a1
  7106.  move.b firstdigit,d0
  7107.  move.w #6,d1
  7108.  bsr DRAWDIGIT
  7109.  
  7110.  move.l SCRNSHOWPT,a1
  7111.  add.l #35+238*40,a1
  7112.  move.b secdigit,d0
  7113.  move.w #6,d1
  7114.  bsr DRAWDIGIT
  7115.  
  7116.  move.l SCRNSHOWPT,a1
  7117.  add.l #36+238*40,a1
  7118.  move.b thirddigit,d0
  7119.  move.w #6,d1
  7120.  bsr DRAWDIGIT
  7121.  
  7122.  
  7123.  rts
  7124.  
  7125.  
  7126. DRAWDIGIT:
  7127.  ext.w d0
  7128.  lea (a0,d0.w),a2
  7129. charlines:
  7130.  lea 30720(a1),a3 
  7131.  move.b (a2),(a1)
  7132.  move.b 10(a2),10240(a1)
  7133.  move.b 20(a2),20480(a1)
  7134.  move.b 30(a2),(a3)
  7135.  move.b 40(a2),10240(a3)
  7136.  move.b 50(a2),20480(a3)
  7137.  lea 30720(a3),a3
  7138.  move.b 60(a2),(a3)
  7139.  move.b 70(a2),10240(a3)
  7140.  
  7141.  add.w #10*8,a2
  7142.  add.w #40,a1
  7143.  dbra d1,charlines
  7144.  
  7145.  rts
  7146.  
  7147. borderchars: incbin "ab3:includes/bordercharsRAW"
  7148.  
  7149. NARRATOR:
  7150.  
  7151. ; sub.w #1,NARRTIME
  7152. ; bge .NOCHARYET
  7153. ; move.w #3,NARRTIME
  7154.  
  7155.  move.l #SCROLLSCRN,d1
  7156.  move.w d1,scroll
  7157.  swap d1
  7158.  move.w d1,scrolh
  7159.  
  7160.  move.w SCROLLTIMER,d0
  7161.  subq #1,d0
  7162.  move.w d0,SCROLLTIMER
  7163.  cmp.w #40,d0
  7164.  bge .NOCHARYET
  7165.  tst.w d0
  7166.  bge.s .okcha
  7167.  
  7168.  move.w #150,SCROLLTIMER
  7169.  bra .NOCHARYET
  7170.  
  7171. .okcha:
  7172.  
  7173.  move.l #SCROLLSCRN,a0
  7174.  add.w SCROLLXPOS,a0
  7175.  
  7176.  moveq #1,d7
  7177. .doachar: 
  7178.  
  7179.  move.l SCROLLPOINTER,a1
  7180.  moveq #0,d1
  7181.  move.b (a1)+,d1    ; character
  7182.  move.l a1,d2
  7183.  cmp.l ENDSCROLL,d2
  7184.  blt.s .notrestartscroll
  7185.  move.l #BLANKSCROLL,a1
  7186.  move.l #BLANKSCROLL+80,ENDSCROLL
  7187. .notrestartscroll
  7188.  move.l a1,SCROLLPOINTER
  7189.  
  7190.  move.l #SCROLLCHARS,a1
  7191.  asl.w #3,d1
  7192.  add.w d1,a1
  7193.  
  7194.  move.b (a1)+,(a0)
  7195.  move.b (a1)+,80(a0)
  7196.  move.b (a1)+,80*2(a0)
  7197.  move.b (a1)+,80*3(a0)
  7198.  move.b (a1)+,80*4(a0)
  7199.  move.b (a1)+,80*5(a0)
  7200.  move.b (a1)+,80*6(a0)
  7201.  move.b (a1)+,80*7(a0)
  7202.  
  7203.  addq #1,a0
  7204.  dbra d7,.doachar
  7205.  
  7206.  move.w SCROLLXPOS,d0
  7207.  addq #2,d0
  7208.  move.w d0,SCROLLXPOS
  7209.  cmp.w #80,d0
  7210.  blt .NOCHARYET
  7211.  move.w #0,SCROLLXPOS
  7212.  
  7213. .NOCHARYET:
  7214.  rts
  7215.  
  7216. ; cmp.w OldAmmo,d0
  7217. ; bne.s .gottochange
  7218. ; 
  7219.  
  7220. NARRTIME: dc.w 5
  7221.  
  7222. SCROLLCHARS: incbin "ab3:includes/scrollfont"
  7223.  
  7224. .NoChange
  7225.  rts
  7226.  
  7227. .gottochange:
  7228.   
  7229.  blt LessAmmo
  7230.  cmp.w #63,Ammo
  7231.  blt.s .NotMax
  7232.  move.w #63,Ammo
  7233. .NotMax:
  7234.  
  7235.  move.w Ammo,d0
  7236.  move.w OldAmmo,d2
  7237.  sub.w d0,d2
  7238.  beq.s .NoChange
  7239.  neg.w d2
  7240.  
  7241.  move.w #63,d3
  7242.  sub.w d0,d3
  7243.  
  7244.  move.l #Ammunition,a0
  7245.  lea (a0,d3.w*8),a0
  7246. ; move.l #borders+5184+25*16+1,a1
  7247.  lsl.w #5,d3
  7248.  add.w d3,a1
  7249.  lea 2592(a1),a2
  7250.  
  7251. AmmoRise:
  7252.  move.b (a0)+,(a1)
  7253.  move.b (a0)+,8(a1)
  7254.  add.w #16,a1
  7255.  move.b (a0)+,(a2)
  7256.  move.b (a0)+,8(a2)
  7257.  add.w #16,a2
  7258.  move.b (a0)+,(a1)
  7259.  move.b (a0)+,8(a1)
  7260.  add.w #16,a1
  7261.  move.b (a0)+,(a2)
  7262.  move.b (a0)+,8(a2)
  7263.  add.w #16,a2
  7264.  subq #1,d2
  7265.  bgt.s AmmoRise
  7266.  
  7267.  move.w Ammo,OldAmmo
  7268.  
  7269.  rts 
  7270.  
  7271.  
  7272. LessAmmo: 
  7273.  move.w OldAmmo,d2
  7274.  sub.w d0,d2
  7275.  
  7276.  move.w #63,d3
  7277.  sub.w OldAmmo,d3
  7278.  
  7279. ; move.l #borders++5184+25*16+1,a1
  7280.  asl.w #5,d3
  7281.  add.w d3,a1
  7282.  lea 2592(a1),a2
  7283.  
  7284. AmmoDrain:
  7285.  move.b #0,(a1)
  7286.  move.b #0,8(a1)
  7287.  move.b #0,(a2)
  7288.  move.b #0,8(a2)
  7289.  add.w #16,a1
  7290.  add.w #16,a2
  7291.  move.b #0,(a1)
  7292.  move.b #0,8(a1)
  7293.  move.b #0,(a2)
  7294.  move.b #0,8(a2)
  7295.  add.w #16,a1
  7296.  add.w #16,a2
  7297.  subq #1,d2
  7298.  bgt.s AmmoDrain
  7299.  
  7300.  move.w Ammo,OldAmmo
  7301.  
  7302.  rts 
  7303.  
  7304. nulop:
  7305.  move.w #$0010,$dff000+intreq
  7306.  rte
  7307.  
  7308. doanything: dc.w 0
  7309.  
  7310. end:
  7311. ;     _break #0
  7312.  
  7313.  move.l #$dff000,a6
  7314.  clr.b dosounds
  7315.  clr.b doanything
  7316. waitfortop22:
  7317.  btst.b #0,intreqrl(a6)
  7318.  beq waitfortop22
  7319. waitfortop222:
  7320.  btst.b #0,intreqrl(a6)
  7321.  beq waitfortop222
  7322.  move.w #$f,$dff000+dmacon
  7323.  
  7324.  
  7325.  move.w PLAYERONEHEALTH,Energy
  7326.  cmp.b #'s',mors
  7327.  bne.s .notsl
  7328.  move.w PLAYERTWOHEALTH,Energy
  7329. .notsl:
  7330.  
  7331.  move.l drawpt,d0
  7332.  move.l olddrawpt,drawpt
  7333.  move.l d0,olddrawpt
  7334.  
  7335. ; cmp.b #'b',Prefsfile+3
  7336. ; bne.s .noback
  7337. ; jsr mt_end
  7338. ;.noback
  7339.  
  7340.  tst.w Energy
  7341.  bgt.s wevewon
  7342.  move.w #0,Energy
  7343.  bsr EnergyBar
  7344.  
  7345.  move.l #gameover,mt_data
  7346.  st UseAllChannels
  7347.  clr.b reachedend
  7348.  jsr mt_init
  7349. playgameover:
  7350.  move.l #$dff000,a6
  7351. waitfortop2:
  7352.  
  7353.     
  7354.  btst.b #0,intreqrl(a6)
  7355.  beq waitfortop2
  7356.  move.w #$1,intreq(a6)
  7357.  
  7358.     
  7359.  jsr mt_music
  7360.  
  7361.  
  7362.     
  7363.  tst.b reachedend
  7364.  beq.s playgameover
  7365.  
  7366.  bra wevelost
  7367.  
  7368.  
  7369. wevewon:
  7370.  
  7371.  move.w #$f,$dff000+dmacon
  7372.  
  7373.  bsr EnergyBar
  7374.  
  7375.  cmp.b #'n',mors
  7376.  bne.s .nonextlev
  7377.  add.w #1,MAXLEVEL
  7378.  st FINISHEDLEVEL
  7379.  
  7380. .nonextlev:
  7381.  
  7382.  move.l #welldone,mt_data
  7383.  st UseAllChannels
  7384.  clr.b reachedend
  7385.  
  7386.  jsr mt_init
  7387. playwelldone:
  7388.  move.l #$dff000,a6
  7389. waitfortop3:
  7390.  btst.b #0,intreqrl(a6)
  7391.  beq waitfortop3
  7392.  move.w #$1,intreq(a6)
  7393.  
  7394.  jsr mt_music
  7395.  
  7396.  tst.b reachedend
  7397.  beq.s playwelldone
  7398.  
  7399.  cmp.b #'n',mors
  7400.  bne.s wevelost
  7401.  cmp.w #16,MAXLEVEL
  7402.  bne.s wevelost
  7403.  
  7404.  jmp ENDGAMESCROLL
  7405.  
  7406. wevelost:
  7407.  
  7408.  move.w #$f,$dff000+dmacon
  7409.  PROTICHECK a0
  7410.  
  7411.  jmp closeeverything 
  7412.  
  7413. endnomusic
  7414.  clr.b doanything
  7415.  
  7416.  
  7417. ; cmp.b #'b',Prefsfile+3
  7418. ; bne.s .noback
  7419. ; jsr mt_end
  7420. ;.noback
  7421. *******************************
  7422. ; cmp.b #'n',mors
  7423. ; bne.s .nonextlev
  7424. ; cmp.w #15,MAXLEVEL
  7425. ; bge.s .nonextlev
  7426. ; add.w #1,MAXLEVEL
  7427. ; st FINISHEDLEVEL
  7428. ;.nonextlev:
  7429. ******************************
  7430.  
  7431.  jmp closeeverything
  7432.  
  7433. do32:
  7434.  move.w #31,d7
  7435.  move.w #$180,d1
  7436. across:
  7437.  move.w d1,(a1)+
  7438.  move.w d1,(a3)+
  7439.  move.w #0,(a1)+ 
  7440.  move.w #0,(a3)+
  7441.  add.w #2,d1
  7442.  dbra d7,across
  7443.  rts
  7444.  
  7445. ;string:
  7446. ;    dc.b    'credits',0
  7447.  
  7448. ENDGAMESCROLL:
  7449.  move.l LEVELMUSIC,mt_data
  7450.  clr.b UseAllChannels
  7451.  jsr mt_init
  7452.  
  7453.  move.w #$fff,MIXCOLL
  7454.  
  7455.  move.w #$1cc1,BOTOFTXT
  7456.  
  7457.  jsr CLRTWEENSCRN
  7458.  
  7459.  move.l #TEXTCOP,$dff080
  7460.  
  7461.  move.l #ENDGAMETEXTy,a0
  7462.  
  7463.  
  7464. SCROLLUP16LINES:
  7465.  
  7466.  move.w #15,d0
  7467.  
  7468. do16
  7469.  move.l #$dff000,a6
  7470.  
  7471.  move.w #0,d6
  7472.  move.w #7,d7
  7473.  
  7474.  move.l #SCROLLSHADES,a5
  7475.  
  7476. fadeupp:
  7477.  
  7478.  move.w (a5,d6.w*2),TOPCOLL
  7479.  move.w (a5,d7.w*2),TXTCOLL
  7480.  
  7481.  
  7482. .wtup
  7483.  btst #5,intreqrl(a6)
  7484.  beq.s .wtup
  7485.  move.w #$20,intreq(a6)
  7486.  
  7487.  jsr mt_music
  7488.  
  7489.  add.w #1,d6
  7490.  sub.w #1,d7
  7491.  bne fadeupp
  7492.  
  7493. .wtup2
  7494.  btst #5,intreqrl(a6)
  7495.  beq.s .wtup2
  7496.  move.w #$20,intreq(a6)
  7497.  
  7498.  move.w #0,TOPCOLL
  7499.  move.w #$fff,TXTCOLL
  7500.  
  7501.  WB
  7502.  
  7503.  move.l TEXTSCRN,d1
  7504.  move.l d1,bltdpt(a6)
  7505.  add.l #80,d1
  7506.  move.l d1,bltapt(a6)
  7507.  move.w #$09f0,bltcon0(a6)
  7508.  move.w #$0,bltcon1(a6)
  7509.  move.w #0,bltdmod(a6)
  7510.  move.w #0,bltamod(a6)
  7511.  move.l #-1,bltafwm(a6)
  7512.  
  7513.  move.w #255*64+40,bltsize(a6)
  7514.  
  7515.  WB
  7516.  
  7517.  dbra d0,do16
  7518.  
  7519.  move.l TEXTSCRN,a1
  7520.  move.w #15,d0
  7521.  jsr DRAWLINEOFTEXT
  7522.  
  7523.  add.l #82,a0
  7524.  cmp.l #ENDENDGAMETEXT,a0
  7525.  blt SCROLLUP16LINES
  7526.  
  7527.  move.l #ENDGAMETEXTy,a0
  7528.  bra SCROLLUP16LINES
  7529.  
  7530. SCROLLSHADES:
  7531.  dc.w 0
  7532.  dc.w $333
  7533.  dc.w $666
  7534.  dc.w $888
  7535.  dc.w $aaa
  7536.  dc.w $ccc
  7537.  dc.w $ddd
  7538.  dc.w $eee
  7539.  
  7540. ENDGAMETEXTy:
  7541. ;          12345678901234567890123456789012345678901234567890123456789012345678901234567890
  7542.  dc.b 0,0,"                                                                                "
  7543.  dc.b 0,1,"As the beast and its four servants die, a breathless silence falls, broken      "
  7544.  dc.b 0,1,"only by the hammering of my own heart in my chest.                              "
  7545.  dc.b 0,1,"I run to the now open exit, and out into the maze of corridors through which I  "
  7546.  dc.b 0,1,"came. I encounter many, many aliens, lying twitching on the ground, or utterly  "
  7547.  dc.b 0,1,"still with glazed eyes and green froth drying on their lips. Many seem to have  "
  7548.  dc.b 0,1,"turned their weapons on themselves, unable to bear either the pain or the       "
  7549.  dc.b 0,1,"sudden silence in their minds.                                                  "
  7550.  dc.b 0,0,"                                                                                "
  7551.  dc.b 0,1,"It takes me several hours to locate a working teleport to take me back aboard   "
  7552.  dc.b 0,1,"the orbiting alien ship. The scene there is the same; hordes of aliens, either  "
  7553.  dc.b 0,1,"dead or catatonic, I cannot tell.                                               "
  7554.  dc.b 0,1,"I walk slowly, exhausted, back to the INDOMITABLE, averting my eyes from the    "
  7555.  dc.b 0,1,"pitiful scenes around me. I know that my work is not finished yet.              "
  7556.  dc.b 0,1,"Once aboard, I make my way to the bridge. I manage to restart the main power    "
  7557.  dc.b 0,1,"generators and get basic navigation back on-line. Working from the memories     "
  7558.  dc.b 0,1,"implanted by the dying marine, I painstakingly program the computer to deal     "
  7559.  dc.b 0,1,"the killing blow to the enemy. At last the task is finished. The ship hums into "
  7560.  dc.b 0,1,"life, accellerating slowly out of orbit, towing the massive alien craft and     "
  7561.  dc.b 0,1,"its mindless cargo behind it.                                                   "
  7562.  dc.b 0,1,"As the image of the alien sun grows in the viewscreen, I think about what I     "
  7563.  dc.b 0,1,"have seen. Fragments of technology, stolen from civilisations - how long ago?   "
  7564.  dc.b 0,1,"How long since they were exterminated by these parasites? And how many more     "
  7565.  dc.b 0,1,"if they are allowed to continue?                                                "
  7566.  dc.b 0,1,"The sun looms hideously large before me, seeming at the last moment to slip to  "
  7567.  dc.b 0,1,"one side as the cruiser slingshots itself through the immense gravity well,     "
  7568.  dc.b 0,1,"its speed doubling and doubling again. The ship shudders and groans as the      "
  7569.  dc.b 0,1,"ponderous mass of the alien ship tries to tear itself free. I feel a distant    "
  7570.  dc.b 0,1,"twinge of curiosity as to whether it will succeed.                              "
  7571.  dc.b 0,1,"The navigation computer chatters quietly to itself as it makes tiny             "
  7572.  dc.b 0,1,"course corrections, bringing the payload to bear on its target. I only sit,     "
  7573.  dc.b 0,1,"watching blankly as we hurtle back towards the planet. The navicom beeps        "
  7574.  dc.b 0,1,"quietly to signal the blowing of the explosive bolts holding the docking ring.  "
  7575.  dc.b 0,1,"So great is our speed that the alien ship does not receed, but simply vanishes  "
  7576.  dc.b 0,1,"from sight, tracked only on the readouts of the computers in front of me.       "
  7577.  dc.b 0,1,"One readout in particular occupies my attention. Red numbers spin towards zero  "
  7578.  dc.b 0,1,"as my invisible agent of destruction spins towards oblivion. Three digits, now  "
  7579.  dc.b 0,1,"two, and now only one. I shift my attention to the image of the alien world,    "
  7580.  dc.b 0,1,"receeding behind my ship.                                                       "
  7581.  dc.b 0,0,"                                                                                "
  7582.  dc.b 0,1,"Three...                                                                        "
  7583.  dc.b 0,0,"                                                                                "
  7584.  dc.b 0,1,"Two...                                                                          "
  7585.  dc.b 0,0,"                                                                                "
  7586.  dc.b 0,1,"One...                                                                          "
  7587.  dc.b 0,0,"                                                                                "
  7588.  dc.b 0,1,"Zero.                                                                           "
  7589.  dc.b 0,0,"                                                                                "
  7590.  dc.b 0,0,"                                                                                "
  7591.  dc.b 0,0,"                                                                                "
  7592.  dc.b 0,0,"                                                                                "
  7593.  dc.b 0,1,"Travelling at nearly a quarter of the speed of light, the alien ship smashed    "
  7594.  dc.b 0,1,"into the planet, flashing past the useless orbital defences which should have   "
  7595.  dc.b 0,1,"neutralized it millions of miles earlier. It passed through the twenty miles    "
  7596.  dc.b 0,1,"of atmosphere in a little more than one ten-thousandth of a second. The air     "
  7597.  dc.b 0,1,"directly beneath had no time to be pushed out of the way, and in another        "
  7598.  dc.b 0,1,"tenth of a second it was a molecule-thick layer a thousand miles below the      "
  7599.  dc.b 0,1,"planet's surface.                                                               "
  7600.  dc.b 0,1,"Such was the heat and pressure caused by the impact, that part of the molten    "
  7601.  dc.b 0,1,"core of the planet underwent nuclear fusion, vapourising thousands of billions  "
  7602.  dc.b 0,1,"of tonnes of surrounding material. This expanding superhot plasma cloud forced  "
  7603.  dc.b 0,1,"its way up through the mantle and crust, fracturing the surface of the planet,  "
  7604.  dc.b 0,1,"blowing continent-sized chunks into space and heating the tortured atmosphere   "
  7605.  dc.b 0,1,"to ignition point. Within two minutes of impact, the doomed planet was a        "
  7606.  dc.b 0,1,"misshapen, incandescent ball, with burning fragments spinning deceptively       "
  7607.  dc.b 0,1,"slowly in their brief orbits before re-impacting with fantastic, majestic       "
  7608.  dc.b 0,1,"force.                                                                          "
  7609.  dc.b 0,0,"                                                                                "
  7610.  dc.b 0,0,"                                                                                "
  7611.  dc.b 0,0,"                                                                                "
  7612.  dc.b 0,0,"                                                                                "
  7613.  dc.b 0,1,"In a matter of weeks, the small amount of matter which had undergone fusion     "
  7614.  dc.b 0,1,"burned itself out, but the planet still glowed sullenly from a million cracks   "
  7615.  dc.b 0,1,"and holes in the crust, as it would continue to do for millions of years to     "
  7616.  dc.b 0,1,"come. The world was barren and dead, and the creatures who once roamed its      "
  7617.  dc.b 0,1,"surface no more than a memory in the mind of one man, sleeping dreamlessly      "
  7618.  dc.b 0,1,"as the invisible speck of his ship sped silently on, towards home.              "
  7619.  dc.b 0,0,"                                                                                "
  7620.  dc.b 0,0,"                                                                                "
  7621.  dc.b 0,0,"                                                                                "
  7622.  dc.b 0,0,"                                                                                "
  7623.  dc.b 0,0,"                                                                                "
  7624.  dc.b 0,0,"                                                                                "
  7625.  dc.b 0,0,"                                                                                "
  7626.  dc.b 0,0,"                                                                                "
  7627.  dc.b 0,0,"                                                                                "
  7628.  dc.b 0,0,"                                                                                "
  7629.  dc.b 0,0,"                                                                                "
  7630.  dc.b 0,0,"                                                                                "
  7631.  dc.b 0,0,"                                                                                "
  7632.  dc.b 0,0,"                                                                                "
  7633.  dc.b 0,0,"                                                                                "
  7634.  dc.b 0,0,"                                                                                "
  7635.  dc.b 0,1,"ALIEN BREED 3D II                                                               "
  7636.  dc.b 0,1,"THE KILLING GROUNDS                                                             "
  7637.  dc.b 0,0,"                                                                                "
  7638.  dc.b 0,0,"                                                                                "
  7639.  dc.b 0,1,"A Team 17 Game                                                                  "
  7640.  dc.b 0,0,"                                                                                "
  7641.  dc.b 0,1,"Produced in association with OCEAN Software                                     "
  7642.  dc.b 0,0,"                                                                                "
  7643.  dc.b 0,0,"                                                                                "
  7644.  dc.b 0,1,"Game Design, Game Code, Editor Code and In-Game Text                            "
  7645.  dc.b 0,0,"                                                                                "
  7646.  dc.b 0,1,"Andrew Clitheroe                                                                "
  7647.  dc.b 0,0,"                                                                                "
  7648.  dc.b 0,0,"                                                                                "
  7649.  dc.b 0,1,"Graphics                                                                        "
  7650.  dc.b 0,0,"                                                                                "
  7651.  dc.b 0,1,"Michael Green                                                                   "
  7652.  dc.b 0,0,"                                                                                "
  7653.  dc.b 0,0,"                                                                                "
  7654.  dc.b 0,1,"3D Object Designs, 3D Editors, Serial and OS code                               "
  7655.  dc.b 0,0,"                                                                                "
  7656.  dc.b 0,1,"Charles Blessing                                                                "
  7657.  dc.b 0,0,"                                                                                "
  7658.  dc.b 0,0,"                                                                                "
  7659.  dc.b 0,1,"Music                                                                           "
  7660.  dc.b 0,0,"                                                                                "
  7661.  dc.b 0,1,"Ben Chanter                                                                     "
  7662.  dc.b 0,0,"                                                                                "
  7663.  dc.b 0,0,"                                                                                "
  7664.  dc.b 0,1,"Project Manager                                                                 "
  7665.  dc.b 0,0,"                                                                                "
  7666.  dc.b 0,1,"Phil Quirke-Webster                                                             "
  7667.  dc.b 0,0,"                                                                                "
  7668.  dc.b 0,0,"                                                                                "
  7669.  dc.b 0,1,"Playtesting                                                                     "
  7670.  dc.b 0,0,"                                                                                "
  7671.  dc.b 0,1,"Phil and the Wolves                                                             "
  7672.  dc.b 0,0,"                                                                                "
  7673.  dc.b 0,0,"                                                                                "
  7674.  dc.b 0,1,"Additional Graphics                                                             "
  7675.  dc.b 0,0,"                                                                                "
  7676.  dc.b 0,1,"Pete Lyons                                                                      "
  7677.  dc.b 0,0,"                                                                                "
  7678.  dc.b 0,0,"                                                                                "
  7679.  
  7680.  
  7681. ENDENDGAMETEXT:
  7682.  
  7683.  
  7684. ;
  7685. ;    move.l    4.w,a6
  7686. ;    move.l    #string,d1
  7687. ;    moveq    #0,d2
  7688. ;    moveq    #0,d3
  7689. ;    jsr    _LVOExecute(a6)
  7690.  
  7691. ; include "endscroll.s"
  7692.  
  7693. ***********************************
  7694.  include "ab3:source_4000/CD32JOY"
  7695.  
  7696.  
  7697.  
  7698. *************************************
  7699. * Set left and right clip values
  7700. *************************************
  7701.  
  7702.  
  7703.  
  7704. NEWsetlclip:
  7705.  move.l #OnScreen,a1
  7706.  move.l #Rotated,a2
  7707.  move.l CONNECT_TABLE,a3
  7708.  move.l Points,a4
  7709.  
  7710.  move.w (a0),d0
  7711.  bge.s .notignoreleft
  7712.  
  7713. ; move.l #0,(a6)
  7714.  
  7715.  bra .leftnotoktoclip
  7716. .notignoreleft:
  7717.  
  7718.  move.w 6(a2,d0*8),d3    ; left z val
  7719.  bgt.s .leftclipinfront
  7720.  addq #2,a0
  7721.  rts
  7722.  
  7723.  tst.w 6(a2,d0*8)
  7724.  bgt.s .leftnotoktoclip
  7725. .ignoreboth:
  7726. ; move.l #0,(a6)
  7727. ; move.l #96*65536,4(a6)
  7728.  move.w #0,leftclip
  7729.  move.w RIGHTX,rightclip
  7730.  addq #8,a6
  7731.  addq #2,a0
  7732.  rts
  7733.  
  7734. .leftclipinfront:
  7735.  move.w (a1,d0*2),d1    ; left x on screen
  7736.  move.w (a0),d2
  7737.  move.w 2(a3,d2.w*4),d2
  7738.  move.w (a1,d2.w*2),d2
  7739.  cmp.w d1,d2
  7740.  bgt.s .leftnotoktoclip
  7741.  
  7742.  
  7743. *************************************
  7744.  
  7745. ; move.w 2(a3,d0.w*4),d6
  7746. ; 
  7747. ; move.w (a4,d0.w*4),d2
  7748. ; move.w 2(a4,d0.w*4),d3
  7749. ; move.w (a4,d6.w*4),d4
  7750. ; move.w 2(a4,d6.w*4),d5
  7751. ;
  7752. ; sub.w d2,d4    ;dx
  7753. ; sub.w d3,d5    ;dz
  7754. ; move.w xoff,d0
  7755. ; move.w zoff,d6
  7756. ; 
  7757. ; sub.w d2,d0
  7758. ; sub.w d3,d6
  7759. ; 
  7760. ; muls d0,d4
  7761. ; muls d6,d5
  7762. ; add.l d4,d5
  7763. ; bge.s .leftnotoktoclip
  7764.  
  7765. *************************************
  7766.  
  7767.  
  7768.  
  7769. ; move.w d1,(a6)
  7770. ; move.w d3,2(a6)
  7771.  cmp.w leftclip,d1
  7772.  ble.s .leftnotoktoclip
  7773.  move.w d1,leftclip
  7774. .leftnotoktoclip:
  7775.  
  7776.  addq #2,a0
  7777.  
  7778.  rts
  7779.  
  7780. NEWsetrclip
  7781.  move.l #OnScreen,a1
  7782.  move.l #Rotated,a2
  7783.  move.l CONNECT_TABLE,a3
  7784.  move.w (a0),d0
  7785.  bge.s .notignoreright
  7786. ; move.w #96,4(a6)
  7787. ; move.w #0,6(a6)
  7788.  move.w #0,d4
  7789.  bra .rightnotoktoclip
  7790. .notignoreright:
  7791.  move.w 6(a2,d0*8),d4    ; right z val
  7792.  bgt.s .rightclipinfront
  7793. ; move.w #96,4(a6)
  7794. ; move.w #0,6(a6)
  7795.  bra.s .rightnotoktoclip
  7796.  
  7797. .rightclipinfront:
  7798.  move.w (a1,d0*2),d1    ; right x on screen
  7799.  move.w (a0),d2
  7800.  move.w (a3,d2.w*4),d2
  7801.  move.w (a1,d2.w*2),d2
  7802.  cmp.w d1,d2
  7803.  blt.s .rightnotoktoclip
  7804. ; move.w d1,4(a6)
  7805. ; move.w d4,6(a6)
  7806.  
  7807.  
  7808. *************************************
  7809.  
  7810. ; move.w (a3,d0.w*4),d6
  7811. ; 
  7812. ; move.w (a4,d0.w*4),d2
  7813. ; move.w 2(a4,d0.w*4),d3
  7814. ; move.w (a4,d6.w*4),d4
  7815. ; move.w 2(a4,d6.w*4),d5
  7816. ;
  7817. ; sub.w d2,d4    ;dx
  7818. ; sub.w d3,d5    ;dz
  7819. ; move.w xoff,d0
  7820. ; move.w zoff,d6
  7821. ; 
  7822. ; sub.w d2,d0
  7823. ; sub.w d3,d6
  7824. ; 
  7825. ; muls d0,d4
  7826. ; muls d6,d5
  7827. ; add.l d4,d5
  7828. ; ble.s .rightnotoktoclip
  7829.  
  7830. *************************************
  7831.  
  7832.  
  7833.  
  7834.  cmp.w rightclip,d1
  7835.  bge.s .rightnotoktoclip
  7836.  addq #1,d1
  7837.  move.w d1,rightclip
  7838. .rightnotoktoclip:
  7839.  addq #8,a6
  7840.  addq #2,a0
  7841.  rts
  7842.  
  7843. FIRSTsetlrclip:
  7844.  move.l #OnScreen,a1
  7845.  move.l #Rotated,a2
  7846.  
  7847.  move.w (a0)+,d0
  7848.  bge.s .notignoreleft
  7849.  bra .leftnotoktoclip
  7850. .notignoreleft:
  7851.  
  7852.  move.w 6(a2,d0*8),d3    ; left z val
  7853.  bgt.s .leftclipinfront
  7854.  
  7855.  move.w (a0),d0
  7856.  blt.s .ignoreboth
  7857.  tst.w 6(a2,d0*8)
  7858.  bgt.s .leftnotoktoclip
  7859. .ignoreboth
  7860.  move.w RIGHTX,rightclip
  7861.  move.w #0,leftclip
  7862.  addq #2,a0
  7863.  rts
  7864.  
  7865. .leftclipinfront:
  7866.  move.w (a1,d0*2),d1    ; left x on screen
  7867.  cmp.w leftclip,d1
  7868.  ble.s .leftnotoktoclip
  7869.  move.w d1,leftclip
  7870. .leftnotoktoclip:
  7871.  
  7872.  move.w (a0)+,d0
  7873.  bge.s .notignoreright
  7874.  move.w #0,d4
  7875.  bra .rightnotoktoclip
  7876. .notignoreright:
  7877.  move.w 6(a2,d0*8),d4    ; right z val
  7878.  ble.s .rightnotoktoclip
  7879.  
  7880. .rightclipinfront:
  7881.  move.w (a1,d0*2),d1    ; right x on screen
  7882.  addq #1,d1
  7883.  cmp.w rightclip,d1
  7884.  bge.s .rightnotoktoclip
  7885.  move.w d1,rightclip
  7886. .rightnotoktoclip:
  7887.  
  7888. ; move.w leftclip,d0
  7889. ; move.w rightclip,d1
  7890. ; cmp.w d0,d1
  7891. ; bge.s .noswap
  7892. ; move.w #192,rightclip
  7893. ; move.w #0,leftclip
  7894. ;.noswap:
  7895.  
  7896.  rts
  7897.  
  7898.  
  7899. leftclip2: dc.w 0
  7900. rightclip2: dc.w 0
  7901. ZoneBright: dc.w 0
  7902.  
  7903. npolys: dc.w 0
  7904.  
  7905. PLR1_fire: dc.b 0
  7906. PLR2_fire: dc.b 0
  7907.  
  7908. *****************************************************
  7909.  
  7910.  
  7911. pastdata:
  7912. ***********************************
  7913. * This routine animates brightnesses.
  7914.  
  7915.  
  7916. liftpt: dc.l liftanimtab
  7917.  
  7918. brightpt:
  7919.  dc.l brightanimtab
  7920.  
  7921.  
  7922. liftanim:
  7923.  rts
  7924.  
  7925. ******************************
  7926.  include "ab3:source_4000/ObjectMove"
  7927.  include "ab3:source_4000/newAnims"
  7928.  include "ab3:source_4000/airoutine.s"
  7929. ******************************
  7930. startpass:
  7931. ; include "ab3:source_4000/password_reloc.s"
  7932. endpass:
  7933.  
  7934. rotanimpt: dc.w 0
  7935. xradd: dc.w 5
  7936. yradd: dc.w 8
  7937. xrpos: dc.w 320
  7938. yrpos: dc.w 320
  7939.  
  7940. rotanim:
  7941.  rts
  7942.  
  7943. option:
  7944.  dc.l 0,0
  7945.  
  7946. ********** WALL STUFF *******************************
  7947.  
  7948.  include "AB3:source_4000/hireswall.s"
  7949.  include "AB3:source_4000/hiresgourwall.s"
  7950.  
  7951. *****************************************************
  7952.  
  7953. ******************************************
  7954. * floor polygon
  7955.  
  7956. numsidestd: dc.w 0
  7957. bottomline: dc.w 0
  7958.  
  7959. checkforwater:
  7960.  tst.b usewater
  7961.  beq.s .notwater
  7962.  
  7963.  move.l Roompt,a1
  7964.  move.w (a1),d7
  7965.  cmp.w currzone,d7
  7966.  bne.s .notwater
  7967.  
  7968.  move.b #$f,fillscrnwater
  7969.  
  7970. .notwater:
  7971.  move.w (a0)+,d6    ; sides-1
  7972.  add.w d6,d6
  7973.  add.w d6,a0
  7974.  add.w #4+6,a0
  7975.  rts
  7976.  
  7977.  rts
  7978.  
  7979. ;NewCornerBuff:
  7980. ; ds.l 100
  7981. CLRNOFLOOR: dc.w 0
  7982.  
  7983. itsafloordraw:
  7984.  
  7985. * If D0 =1 then its a floor otherwise (=2) it's
  7986. * a roof.
  7987.  
  7988.  move.w #0,above
  7989.  move.w (a0)+,d6    ; ypos of poly
  7990.  
  7991.  tst.b usewater
  7992.  beq.s .oknon
  7993.  tst.b DOANYWATER
  7994.  beq dontdrawreturn
  7995. .oknon
  7996.  
  7997.  move.w d6,d7
  7998.  ext.l d7
  7999.  asl.l #6,d7
  8000.  cmp.l TOPOFROOM,d7
  8001.  blt checkforwater
  8002.  cmp.l BOTOFROOM,d7
  8003.  bgt.s dontdrawreturn
  8004.  
  8005.  move.w leftclip,d7
  8006.  cmp.w rightclip,d7
  8007.  bge.s dontdrawreturn
  8008.  
  8009.  sub.w flooryoff,d6
  8010.  bgt.s below
  8011.  blt.s aboveplayer
  8012.  
  8013.  tst.b usewater
  8014.  beq.s .notwater
  8015.  
  8016.  move.l Roompt,a1
  8017.  move.w (a1),d7
  8018.  cmp.w currzone,d7
  8019.  
  8020.  bne.s .notwater
  8021.  
  8022.  st fillscrnwater
  8023.  
  8024. .notwater:
  8025.  
  8026.  
  8027. dontdrawreturn:
  8028.  move.w (a0)+,d6    ; sides-1
  8029.  add.w d6,d6
  8030.  add.w d6,a0
  8031.  add.w #4+6,a0
  8032.  rts
  8033. aboveplayer:
  8034.  
  8035.  tst.b usewater
  8036.  beq.s .notwater
  8037.  
  8038.  move.l Roompt,a1
  8039.  move.w (a1),d7
  8040.  cmp.w currzone,d7
  8041.  bne.s .notwater
  8042.  
  8043.  move.b #$f,fillscrnwater
  8044.  
  8045. .notwater:
  8046.  
  8047.  btst #1,d0
  8048.  beq.s dontdrawreturn
  8049.  move.w MIDDLEY,d7
  8050.  sub.w topclip,d7 
  8051.  ble.s dontdrawreturn
  8052.  move.w #1,d0
  8053.  move.w d0,above
  8054.  neg.w d6
  8055.  bra.s notbelow
  8056. below:
  8057.  move.w botclip,d7
  8058.  sub.w MIDDLEY,d7
  8059.  ble.s dontdrawreturn
  8060. notbelow:
  8061.  btst #0,d0
  8062.  beq.s dontdrawreturn
  8063.  move.w d6,distaddr
  8064.  muls #64,d6
  8065.  move.l d6,ypos
  8066.  ext.l d7
  8067.  divs.l d7,d6        ; zpos of bottom
  8068.             ; visible line
  8069.  
  8070.  beq dontdrawreturn
  8071.  
  8072.  cmp.l #32767,d6
  8073.  bgt dontdrawreturn
  8074.             
  8075.  move.w d6,minz
  8076.  move.w d7,bottomline
  8077.  
  8078. ; Go round each point finding out
  8079. ; if it should be visible or not.
  8080.  
  8081.  move.l a0,-(a7)
  8082.  
  8083.  move.w (a0)+,d7    ; number of sides
  8084.  move.l #Rotated,a1
  8085.  move.l #OnScreen,a2
  8086. ; move.l #NewCornerBuff,a3
  8087.  moveq #0,d4
  8088.  moveq #0,d5
  8089.  moveq #0,d6
  8090.  clr.b anyclipping
  8091.  
  8092. cornerprocessloop:
  8093.  
  8094.  move.w (a0)+,d0
  8095.  and.w #$fff,d0
  8096.  move.w 6(a1,d0.w*8),d1
  8097.  ble  .canttell
  8098.  
  8099.  move.w (a2,d0.w*2),d3
  8100.  cmp.w leftclip,d3
  8101.  bgt.s .nol
  8102.  st d4
  8103.  st anyclipping
  8104.  bra.s .nos
  8105. .nol:
  8106.  cmp.w rightclip,d3
  8107.  blt.s .nor
  8108.  st d6
  8109.  st anyclipping
  8110.  bra.s .nos
  8111. .nor:
  8112.  st d5
  8113. .nos:
  8114.  bra .cantell
  8115.  
  8116. .canttell:
  8117.  st d5
  8118.  st anyclipping
  8119.  
  8120. .cantell:
  8121.  
  8122.  
  8123.  dbra d7,cornerprocessloop
  8124.  
  8125.  
  8126.  move.l (a7)+,a0
  8127.  tst.b d5
  8128.  bne.s somefloortodraw
  8129.  eor.b d4,d6
  8130.  bne dontdrawreturn
  8131.  
  8132. somefloortodraw:
  8133.  
  8134.  tst.b gourfloor
  8135.  bne goursides
  8136.  
  8137.  move.w #300,top
  8138.  move.w #-1,bottom
  8139.  move.w #0,drawit
  8140.  move.l #Rotated,a1
  8141.  move.l #OnScreen,a2
  8142.  move.w (a0)+,d7    ; no of sides
  8143. sideloop:
  8144.  move.w minz,d6
  8145.  move.w (a0)+,d1
  8146.  move.w (a0),d3
  8147.  and.w #$fff,d1
  8148.  and.w #$fff,d3
  8149.  
  8150.  move.w 6(a1,d1*8),d4    ;first z
  8151.  cmp.w d6,d4
  8152.  bgt firstinfront
  8153.  move.w 6(a1,d3*8),d5    ; sec z
  8154.  cmp.w d6,d5
  8155.  ble bothbehind
  8156. ** line must be on left and partially behind.
  8157.  sub.w d5,d4
  8158.  move.l (a1,d1*8),d0
  8159.  sub.l (a1,d3*8),d0
  8160.  asr.l #7,d0
  8161.  sub.w d5,d6
  8162.  muls d6,d0    ; new x coord
  8163.  divs d4,d0
  8164.  ext.l d0
  8165.  asl.l #7,d0
  8166.  
  8167.  add.l (a1,d3*8),d0
  8168.  move.w minz,d4
  8169.  move.w (a2,d3*2),d2
  8170.  divs d4,d0
  8171.  add.w MIDDLEX,d0
  8172.  move.l ypos,d3
  8173.  divs d5,d3
  8174.  move.w bottomline,d1 
  8175.  bra lineclipped
  8176.  
  8177. firstinfront:
  8178.  move.w 6(a1,d3*8),d5    ; sec z
  8179.  cmp.w d6,d5
  8180.  bgt bothinfront
  8181. ** line must be on right and partially behind.
  8182.  sub.w d4,d5    ; dz
  8183.  move.l (a1,d3*8),d2
  8184.  sub.l (a1,d1*8),d2    ; dx
  8185.  sub.w d4,d6
  8186.  asr.l #7,d2
  8187.  muls d6,d2    ; new x coord
  8188.  divs d5,d2
  8189.  ext.l d2
  8190.  asl.l #7,d2
  8191.  add.l (a1,d1*8),d2
  8192.  move.w minz,d5
  8193.  move.w (a2,d1*2),d0
  8194.  divs d5,d2
  8195.  add.w MIDDLEX,d2
  8196.  move.l ypos,d1
  8197.  divs d4,d1
  8198.  move.w bottomline,d3 
  8199.  bra lineclipped
  8200.  
  8201. bothinfront:
  8202.  
  8203. * Also, usefully enough, both are on-screen
  8204. * so no bottom clipping is needed.
  8205.  
  8206.  move.w (a2,d1*2),d0    ; first x
  8207.  move.w (a2,d3*2),d2    ; second x
  8208.  move.l ypos,d1
  8209.  move.l d1,d3
  8210.  divs d4,d1        ; first y
  8211.  divs d5,d3        ; second y
  8212. lineclipped:
  8213.  move.l #rightsidetab,a3
  8214.  cmp.w d1,d3
  8215.  beq lineflat
  8216.  st drawit
  8217.  bgt lineonright
  8218.  move.l #leftsidetab,a3
  8219.  exg d1,d3
  8220.  exg d0,d2
  8221.  
  8222.  lea (a3,d1*2),a3
  8223.  
  8224.  cmp.w top(pc),d1
  8225.  bge.s .nonewtop
  8226.  move.w d1,top
  8227. .nonewtop:
  8228.  cmp.w bottom(pc),d3
  8229.  ble.s .nonewbot
  8230.  move.w d3,bottom
  8231. .nonewbot:
  8232.  
  8233.  sub.w d1,d3    ; dy
  8234.  sub.w d0,d2    ; dx
  8235.  
  8236.  blt .linegoingleft
  8237.  
  8238.  ext.l d2
  8239.  divs d3,d2
  8240.  move.w d2,d6
  8241.  swap d2
  8242.  
  8243. ; moveq #0,d6
  8244. ; sub.w d3,d2
  8245. ; blt.s .noco
  8246. ;.makeco
  8247. ; addq #1,d6
  8248. ; sub.w d3,d2
  8249. ; bge.s .makeco
  8250. ;.noco
  8251. ; add.w d3,d2
  8252.  
  8253.  move.w d3,d4
  8254.  move.w d3,d5
  8255.  subq #1,d5
  8256.  move.w d6,d1
  8257.  addq #1,d1
  8258.  
  8259. .pixlopright:
  8260.  move.w d0,(a3)+
  8261.  sub.w d2,d4
  8262.  bge.s .nobigstep
  8263.  add.w d1,d0
  8264.  add.w d3,d4
  8265.  dbra d5,.pixlopright
  8266.  bra lineflat
  8267. .nobigstep
  8268.  add.w d6,d0
  8269.  dbra d5,.pixlopright
  8270.  bra lineflat
  8271.  
  8272. .linegoingleft:
  8273.  
  8274.  neg.w d2
  8275.  
  8276.  ext.l d2
  8277.  divs d3,d2
  8278.  move.w d2,d6
  8279.  swap d2
  8280.  
  8281.  
  8282. ; moveq #0,d6
  8283. ; sub.w d3,d2
  8284. ; blt.s .nocol
  8285. ;.makecol
  8286. ; addq #1,d6
  8287. ; sub.w d3,d2
  8288. ; bge.s .makecol
  8289. ;.nocol
  8290. ; add.w d3,d2
  8291.  
  8292.  
  8293.  
  8294.  move.w d3,d4
  8295.  move.w d3,d5
  8296.  subq #1,d5
  8297.  
  8298.  move.w d6,d1
  8299.  addq #1,d1
  8300.  
  8301. .pixlopleft:
  8302.  sub.w d2,d4
  8303.  bge.s .nobigstepl
  8304.  sub.w d1,d0
  8305.  add.w d3,d4
  8306.  move.w d0,(a3)+
  8307.  dbra d5,.pixlopleft
  8308.  bra lineflat
  8309.  
  8310. .nobigstepl
  8311.  sub.w d6,d0
  8312.  move.w d0,(a3)+
  8313.  dbra d5,.pixlopleft
  8314.  bra lineflat
  8315.  
  8316. lineonright:
  8317.  
  8318.  lea (a3,d1*2),a3
  8319.  
  8320.  cmp.w top(pc),d1
  8321.  bge.s .nonewtop
  8322.  move.w d1,top
  8323. .nonewtop:
  8324.  cmp.w bottom(pc),d3
  8325.  ble.s .nonewbot
  8326.  move.w d3,bottom
  8327. .nonewbot:
  8328.  
  8329.  sub.w d1,d3    ; dy
  8330.  sub.w d0,d2    ; dx
  8331.  blt .linegoingleft
  8332. ; addq #1,d0
  8333.  ext.l d2
  8334.  divs d3,d2
  8335.  move.w d2,d6
  8336.  swap d2
  8337.  
  8338. ; moveq #0,d6
  8339. ; sub.w d3,d2
  8340. ; blt.s .noco
  8341. ;.makeco
  8342. ; addq #1,d6
  8343. ; sub.w d3,d2
  8344. ; bge.s .makeco
  8345. ;.noco
  8346. ; add.w d3,d2
  8347.  
  8348.  move.w d3,d4
  8349.  move.w d3,d5
  8350.  subq #1,d5
  8351.  move.w d6,d1
  8352.  addq #1,d1
  8353.  
  8354. .pixlopright:
  8355.  sub.w d2,d4
  8356.  bge.s .nobigstep
  8357.  add.w d1,d0
  8358.  add.w d3,d4
  8359.  move.w d0,(a3)+
  8360.  dbra d5,.pixlopright
  8361.  bra lineflat
  8362.  
  8363. .nobigstep
  8364.  add.w d6,d0
  8365.  move.w d0,(a3)+
  8366.  dbra d5,.pixlopright
  8367.  bra lineflat
  8368.  
  8369. .linegoingleft:
  8370. ; addq #1,d0
  8371.  neg.w d2
  8372.  
  8373.  ext.l d2
  8374.  divs d3,d2
  8375.  move.w d2,d6
  8376.  swap d2
  8377.  
  8378.  
  8379. ; moveq #0,d6
  8380. ; sub.w d3,d2
  8381. ; blt.s .nocol
  8382. ;.makecol
  8383. ; addq #1,d6
  8384. ; sub.w d3,d2
  8385. ; bge.s .makecol
  8386. ;.nocol
  8387. ; add.w d3,d2
  8388.  
  8389.  move.w d3,d4
  8390.  move.w d3,d5
  8391.  subq #1,d5
  8392.  move.w d6,d1
  8393.  addq #1,d1
  8394.  
  8395. .pixlopleft:
  8396.  move.w d0,(a3)+
  8397.  sub.w d2,d4
  8398.  bge.s .nobigstepl
  8399.  sub.w d1,d0
  8400.  add.w d3,d4
  8401.  dbra d5,.pixlopleft
  8402.  bra lineflat
  8403.  
  8404. .nobigstepl
  8405.  sub.w d6,d0
  8406.  dbra d5,.pixlopleft
  8407.  
  8408. lineflat:
  8409.  
  8410. bothbehind:
  8411.  dbra d7,sideloop
  8412.  bra pastsides
  8413.  
  8414. fbr: dc.w 0
  8415. sbr: dc.w 0
  8416. FloorPtBrights: dc.l 0
  8417.  
  8418. goursides:
  8419.  
  8420.  move.w #300,top
  8421.  move.w #-1,bottom
  8422.  move.w #0,drawit
  8423.  move.l #Rotated,a1
  8424.  move.l #OnScreen,a2
  8425.  move.w (a0)+,d7    ; no of sides
  8426. sideloopGOUR:
  8427.  move.w minz,d6
  8428.  move.w (a0)+,d1
  8429.  move.w (a0),d3
  8430.  
  8431.  move.w d1,d4
  8432.  move.w d3,d5
  8433.  and.w #$0fff,d1
  8434.  and.w #$0fff,d3
  8435.  
  8436.  rol.w #4,d4
  8437.  rol.w #4,d5
  8438.  and.w #$f,d4
  8439.  and.w #$f,d5
  8440.  
  8441.  move.l FloorPtBrights,a4
  8442.  move.w (a4,d4.w*8),d4
  8443.  bge.s .okpos1
  8444.  neg.w d4
  8445. .okpos1:
  8446.  sub.w #300,d4
  8447.  move.w d4,fbr
  8448.  move.w (a4,d5.w*8),d4
  8449.  bge.s .okpos2
  8450.  neg.w d4
  8451. .okpos2:
  8452.  sub.w #300,d4
  8453.  move.w d4,sbr
  8454.  
  8455.  move.w 6(a1,d1*8),d4    ;first z
  8456.  cmp.w d6,d4
  8457.  bgt firstinfrontGOUR
  8458.  move.w 6(a1,d3*8),d5    ; sec z
  8459.  cmp.w d6,d5
  8460.  ble bothbehindGOUR
  8461. ** line must be on left and partially behind.
  8462.  sub.w d5,d4
  8463.  
  8464.  move.w fbr,d0
  8465.  sub.w sbr,d0
  8466.  sub.w d5,d6
  8467.  muls d6,d0
  8468.  divs d4,d0
  8469.  add.w sbr,d0
  8470.  move.w d0,fbr
  8471.  
  8472.  move.l (a1,d1*8),d0
  8473.  sub.l (a1,d3*8),d0
  8474.  asr.l #7,d0
  8475.  muls d6,d0    ; new x coord
  8476.  divs d4,d0
  8477.  ext.l d0
  8478.  asl.l #7,d0
  8479.  
  8480.  add.l (a1,d3*8),d0
  8481.  move.w minz,d4
  8482.  move.w (a2,d3*2),d2
  8483.  divs d4,d0
  8484.  add.w MIDDLEX,d0
  8485.  move.l ypos,d3
  8486.  divs d5,d3
  8487.  
  8488.  move.w bottomline,d1 
  8489.  bra lineclippedGOUR
  8490.  
  8491. firstinfrontGOUR:
  8492.  move.w 6(a1,d3*8),d5    ; sec z
  8493.  cmp.w d6,d5
  8494.  bgt bothinfrontGOUR
  8495. ** line must be on right and partially behind.
  8496.  sub.w d4,d5    ; dz
  8497.  
  8498.  move.w sbr,d2
  8499.  sub.w fbr,d2
  8500.  sub.w d4,d6
  8501.  muls d6,d2
  8502.  divs d5,d2
  8503.  add.w fbr,d2
  8504.  move.w d2,sbr
  8505.  
  8506.  move.l (a1,d3*8),d2
  8507.  sub.l (a1,d1*8),d2    ; dx
  8508.  asr.l #7,d2
  8509.  muls d6,d2    ; new x coord
  8510.  divs d5,d2
  8511.  ext.l d2
  8512.  asl.l #7,d2
  8513.  add.l (a1,d1*8),d2
  8514.  move.w minz,d5
  8515.  move.w (a2,d1*2),d0
  8516.  divs d5,d2
  8517.  add.w MIDDLEX,d2
  8518.  move.l ypos,d1
  8519.  divs d4,d1
  8520.  move.w bottomline,d3 
  8521.  bra lineclippedGOUR
  8522.  
  8523. bothinfrontGOUR:
  8524.  
  8525. * Also, usefully enough, both are on-screen
  8526. * so no bottom clipping is needed.
  8527.  
  8528.  move.w (a2,d1*2),d0    ; first x
  8529.  move.w (a2,d3*2),d2    ; second x
  8530.  move.l ypos,d1
  8531.  move.l d1,d3
  8532.  divs d4,d1        ; first y
  8533.  divs d5,d3        ; second y
  8534. lineclippedGOUR:
  8535.  move.l #rightsidetab,a3
  8536.  cmp.w d1,d3
  8537.  bne linenotflatGOUR
  8538.  
  8539. ; move.w fbr,d4
  8540. ; move.w sbr,d5
  8541. ; cmp.w d0,d2
  8542. ; bgt.s .nsw
  8543. ; exg d4,d5
  8544. ;.nsw:
  8545.  
  8546. ; move.l #leftbrighttab,a3
  8547. ; move.w d4,(a3,d3.w)
  8548. ; move.l #rightbrighttab,a3
  8549. ; move.w d5,(a3,d3.w) 
  8550.  bra lineflatGOUR
  8551.  
  8552. linenotflatGOUR
  8553.  st drawit
  8554.  bgt lineonrightGOUR
  8555.  move.l #leftsidetab,a3
  8556.  exg d1,d3
  8557.  exg d0,d2
  8558.  
  8559.  lea (a3,d1*2),a3
  8560.  lea leftbrighttab-leftsidetab(a3),a4
  8561.  
  8562.  cmp.w top(pc),d1
  8563.  bge.s .nonewtop
  8564.  move.w d1,top
  8565. .nonewtop:
  8566.  cmp.w bottom(pc),d3
  8567.  ble.s .nonewbot
  8568.  move.w d3,bottom
  8569. .nonewbot:
  8570.  
  8571.  sub.w d1,d3    ; dy
  8572.  sub.w d0,d2    ; dx
  8573.  
  8574.  blt .linegoingleft
  8575.  
  8576.  ext.l d2
  8577.  divs d3,d2
  8578.  move.w d2,d6
  8579.  swap d2
  8580.  move.w d2,a5
  8581.  
  8582. ; moveq #0,d6
  8583. ; sub.w d3,d2
  8584. ; blt.s .noco
  8585. ;.makeco
  8586. ; addq #1,d6
  8587. ; sub.w d3,d2
  8588. ; bge.s .makeco
  8589. ;.noco
  8590. ; add.w d3,d2
  8591.  
  8592.  move.w d3,d4
  8593.  move.w d3,d5
  8594.  subq #1,d5
  8595.  move.w d6,d1
  8596.  addq #1,d1
  8597.  move.w d1,a6
  8598.  
  8599.  moveq #0,d1
  8600.  move.w sbr,d1
  8601.  move.w fbr,d2
  8602.  sub.w d1,d2
  8603.  ext.l d2
  8604.  asl.w #8,d2
  8605.  asl.w #2,d2
  8606.  divs d3,d2 
  8607.  ext.l d2
  8608.  asl.l #6,d2
  8609.  swap d1
  8610.  
  8611. .pixlopright:
  8612.  move.w d0,(a3)+
  8613.  swap d1
  8614.  move.w d1,(a4)+
  8615.  swap d1
  8616.  add.l d2,d1
  8617.  
  8618.  sub.w a5,d4
  8619.  bge.s .nobigstep
  8620.  add.w a6,d0
  8621.  add.w d3,d4
  8622.  dbra d5,.pixlopright
  8623.  bra lineflatGOUR
  8624. .nobigstep
  8625.  
  8626.  add.w d6,d0
  8627.  dbra d5,.pixlopright
  8628.  bra lineflatGOUR
  8629.  
  8630. .linegoingleft:
  8631.  
  8632.  neg.w d2
  8633.  
  8634.  ext.l d2
  8635.  divs d3,d2
  8636.  move.w d2,d6
  8637.  swap d2
  8638.  
  8639.  
  8640. ; moveq #0,d6
  8641. ; sub.w d3,d2
  8642. ; blt.s .nocol
  8643. ;.makecol
  8644. ; addq #1,d6
  8645. ; sub.w d3,d2
  8646. ; bge.s .makecol
  8647. ;.nocol
  8648. ; add.w d3,d2
  8649.  
  8650.  move.w d3,d4
  8651.  move.w d3,d5
  8652.  subq #1,d5
  8653.  
  8654.  move.w d6,d1
  8655.  addq #1,d1
  8656.  move.w d1,a6
  8657.  move.w d2,a5
  8658.  
  8659.  moveq #0,d1
  8660.  move.w sbr,d1
  8661.  move.w fbr,d2
  8662.  sub.w d1,d2
  8663.  ext.l d2
  8664.  asl.w #8,d2
  8665.  asl.w #2,d2
  8666.  divs d3,d2 
  8667.  ext.l d2
  8668.  asl.l #6,d2
  8669.  swap d1
  8670.  
  8671. .pixlopleft:
  8672.  
  8673.  swap d1
  8674.  move.w d1,(a4)+
  8675.  swap d1
  8676.  add.l d2,d1
  8677.  
  8678.  sub.w a5,d4
  8679.  bge.s .nobigstepl
  8680.  sub.w a6,d0
  8681.  add.w d3,d4
  8682.  move.w d0,(a3)+
  8683.  dbra d5,.pixlopleft
  8684.  bra lineflatGOUR
  8685.  
  8686. .nobigstepl
  8687.  sub.w d6,d0
  8688.  move.w d0,(a3)+
  8689.  dbra d5,.pixlopleft
  8690.  bra lineflatGOUR
  8691.  
  8692. lineonrightGOUR:
  8693.  
  8694.  lea (a3,d1*2),a3
  8695.  
  8696.  lea rightbrighttab-rightsidetab(a3),a4
  8697.  
  8698.  cmp.w top(pc),d1
  8699.  bge.s .nonewtop
  8700.  move.w d1,top
  8701. .nonewtop:
  8702.  cmp.w bottom(pc),d3
  8703.  ble.s .nonewbot
  8704.  move.w d3,bottom
  8705. .nonewbot:
  8706.  
  8707.  sub.w d1,d3    ; dy
  8708.  sub.w d0,d2    ; dx
  8709.  blt .linegoingleft
  8710. ; addq #1,d0
  8711.  ext.l d2
  8712.  divs d3,d2
  8713.  move.w d2,d6
  8714.  swap d2
  8715.  
  8716. ; moveq #0,d6
  8717. ; sub.w d3,d2
  8718. ; blt.s .noco
  8719. ;.makeco
  8720. ; addq #1,d6
  8721. ; sub.w d3,d2
  8722. ; bge.s .makeco
  8723. ;.noco
  8724. ; add.w d3,d2
  8725.  
  8726.  move.w d3,d4
  8727.  move.w d3,d5
  8728.  subq #1,d5
  8729.  move.w d6,d1
  8730.  addq #1,d1
  8731.  
  8732.  move.w d1,a6
  8733.  move.w d2,a5
  8734.  
  8735.  moveq #0,d1
  8736.  move.w fbr,d1
  8737.  move.w sbr,d2
  8738.  sub.w d1,d2
  8739.  ext.l d2
  8740.  asl.w #8,d2
  8741.  asl.w #2,d2
  8742.  divs d3,d2 
  8743.  ext.l d2
  8744.  asl.l #6,d2
  8745.  swap d1
  8746.  
  8747. .pixlopright:
  8748.  
  8749.  swap d1
  8750.  move.w d1,(a4)+
  8751.  swap d1
  8752.  add.l d2,d1
  8753.  
  8754.  sub.w a5,d4
  8755.  bge.s .nobigstep
  8756.  add.w a6,d0
  8757.  add.w d3,d4
  8758.  move.w d0,(a3)+
  8759.  dbra d5,.pixlopright
  8760.  bra lineflatGOUR
  8761.  
  8762. .nobigstep
  8763.  add.w d6,d0
  8764.  move.w d0,(a3)+
  8765.  dbra d5,.pixlopright
  8766.  bra lineflatGOUR
  8767.  
  8768. .linegoingleft:
  8769. ; addq #1,d0
  8770.  neg.w d2
  8771.  
  8772.  ext.l d2
  8773.  divs d3,d2
  8774.  move.w d2,d6
  8775.  swap d2
  8776.  
  8777.  
  8778. ; moveq #0,d6
  8779. ; sub.w d3,d2
  8780. ; blt.s .nocol
  8781. ;.makecol
  8782. ; addq #1,d6
  8783. ; sub.w d3,d2
  8784. ; bge.s .makecol
  8785. ;.nocol
  8786. ; add.w d3,d2
  8787.  
  8788.  move.w d3,d4
  8789.  move.w d3,d5
  8790.  subq #1,d5
  8791.  move.w d6,d1
  8792.  addq #1,d1
  8793.  move.w d1,a6
  8794.  move.w d2,a5
  8795.  
  8796.  moveq #0,d1
  8797.  move.w fbr,d1
  8798.  move.w sbr,d2
  8799.  sub.w d1,d2
  8800.  ext.l d2
  8801.  asl.w #8,d2
  8802.  asl.w #2,d2
  8803.  divs d3,d2 
  8804.  ext.l d2
  8805.  asl.l #6,d2
  8806.  swap d1
  8807.  
  8808. .pixlopleft:
  8809.  
  8810.  swap d1
  8811.  move.w d1,(a4)+
  8812.  swap d1
  8813.  add.l d2,d1
  8814.  
  8815.  move.w d0,(a3)+
  8816.  sub.w a5,d4
  8817.  bge.s .nobigstepl
  8818.  sub.w a6,d0
  8819.  add.w d3,d4
  8820.  dbra d5,.pixlopleft
  8821.  bra lineflatGOUR
  8822.  
  8823. .nobigstepl
  8824.  sub.w d6,d0
  8825.  dbra d5,.pixlopleft
  8826.  
  8827. lineflatGOUR:
  8828.  
  8829. bothbehindGOUR:
  8830.  dbra d7,sideloopGOUR
  8831.  
  8832. pastsides:
  8833.  
  8834.  addq #2,a0
  8835.  
  8836.  move.w #320,linedir
  8837.  
  8838. ; move.l FASTBUFFER2,a6
  8839. ; add.l BIGMIDDLEY,a6
  8840. ; move.l a6,REFPTR
  8841.  
  8842.  move.l FASTBUFFER,a6
  8843.  add.l BIGMIDDLEY,a6
  8844.  move.w (a0)+,d6
  8845.  add.w SMALLIT,d6
  8846.  move.w d6,scaleval
  8847.  move.w (a0)+,d6
  8848.  
  8849.  ifne CHEESEY
  8850.  move.w d6,d7    ; 000000XX000000YY
  8851.  lsr.w #6,d6
  8852.  add.w d6,d7    ; 000000XX0000XXYY
  8853.  
  8854.  and.b #%111,d6    ; 000000XX00000XYY
  8855.  add.b d7,d7    ; 000000XX0000XYY0
  8856.  asl.w #4,d7    ; 00XX0000 XYY00000
  8857.  and.w #%0010000011100000,d7
  8858.  move.w d7,d6
  8859.  endc
  8860.  
  8861.  move.w d6,whichtile
  8862.  move.w (a0)+,d6
  8863.  add.w ZoneBright,d6
  8864.  move.w d6,lighttype
  8865.  move.w above(pc),d6
  8866.  beq groundfloor
  8867. * on ceiling:
  8868.  move.w #-320,linedir
  8869.  suba.w #320,a6
  8870. groundfloor:
  8871.  
  8872.  move.w xoff,d6
  8873.  move.w zoff,d7
  8874.  add.w xwobxoff,d7
  8875.  add.w xwobzoff,d6
  8876.  ext.l d6
  8877.  ext.l d7
  8878.  
  8879.  tst.b FULLSCR
  8880.  beq.s .shiftit
  8881.  
  8882.  asl.l #2,d6
  8883.  asl.l #2,d7
  8884.  divs #3,d6
  8885.  divs #3,d7
  8886.  swap d6
  8887.  swap d7
  8888.  clr.w d6
  8889.  clr.w d7
  8890.  asr.l #2,d6
  8891.  asr.l #2,d7
  8892.  bra.s .donsht
  8893.  
  8894. .shiftit
  8895.  
  8896. ; divs #3,d6
  8897. ; divs #3,d7
  8898.  swap d6
  8899.  swap d7
  8900.  clr.w d6
  8901.  clr.w d7
  8902.  asr.l #1,d6
  8903.  asr.l #1,d7
  8904. .donsht:
  8905.  move.w scaleval(pc),d3
  8906.  beq.s .samescale
  8907.  bgt.s .scaledown
  8908.  neg.w d3
  8909.  asr.l d3,d7
  8910.  asr.l d3,d6
  8911.  bra.s .samescale
  8912. .scaledown:
  8913.  asl.l d3,d6
  8914.  asl.l d3,d7
  8915. .samescale
  8916.  
  8917.  ifne CHEESEY
  8918.  asr.l #1,d6
  8919.  asr.l #1,d7
  8920.  endc
  8921.  
  8922.  move.l d6,sxoff
  8923.  move.l d7,szoff
  8924.  bra pastscale 
  8925.  
  8926.  asr.l #3,d1
  8927.  asr.l #3,d2
  8928.  asr.l #2,d1
  8929.  asr.l #2,d2
  8930.  asr.l #1,d1
  8931.  asr.l #1,d2
  8932. scaleprogfrom
  8933.  nop
  8934.  nop
  8935.  asl.l #1,d1
  8936.  asl.l #1,d2
  8937.  asl.l #2,d1
  8938.  asl.l #2,d2
  8939.  asl.l #3,d1
  8940.  asl.l #3,d2
  8941.  
  8942. top: dc.w 0
  8943. bottom: dc.w 0
  8944. ypos: dc.l 0
  8945. nfloors: dc.w 0
  8946. lighttype: dc.w 0
  8947. above: dc.w 0 
  8948. linedir: dc.w 0
  8949. distaddr: dc.w 0
  8950.  
  8951. minz: dc.l 0
  8952.  
  8953. leftsidetab:
  8954.  ds.w 512*2
  8955. rightsidetab:
  8956.  ds.w 512*2
  8957. leftbrighttab:
  8958.  ds.w 512*2
  8959. rightbrighttab:
  8960.  ds.w 512*2
  8961.  
  8962. PointBrights:
  8963.  dc.l 0
  8964. CurrentPointBrights:
  8965.  ds.l 2*256*10
  8966.  
  8967. movespd: dc.w 0
  8968. largespd: dc.l 0
  8969. disttobot: dc.w 0
  8970.  
  8971. pastscale:
  8972.  
  8973.  
  8974.  tst.b drawit(pc)
  8975.  beq dontdrawfloor
  8976.  
  8977.  tst.b DOUBLEHEIGHT
  8978.  beq pix1h
  8979.  
  8980.  move.l a0,-(a7)
  8981.  move.w linedir,d1
  8982.  add.w d1,linedir
  8983.  
  8984.  move.l #leftsidetab,a4
  8985.  move.w top(pc),d1
  8986.  tst.w above
  8987.  beq.s .clipfloor
  8988.  
  8989.  sub.w #320,a6
  8990.  
  8991.  move.w MIDDLEY,d7
  8992.  subq #1,d7
  8993.  sub.w d1,d7
  8994.  move.w d7,disttobot
  8995.  
  8996.  move.w bottom(pc),d7
  8997.  move.w MIDDLEY,d3
  8998.  move.w d3,d4
  8999.  sub.w topclip,d3
  9000.  sub.w botclip,d4
  9001.  cmp.w d3,d1
  9002.  bge predontdrawfloor
  9003.  cmp.w d4,d7
  9004.  blt predontdrawfloor
  9005.  cmp.w d4,d1
  9006.  bge.s .nocliptoproof
  9007.  move.w d4,d1
  9008. .nocliptoproof
  9009.  cmp.w d3,d7
  9010.  blt .doneclip
  9011.  move.w d3,d7
  9012.  bra .doneclip
  9013.  
  9014. .clipfloor:
  9015.  move.w BOTTOMY,d7
  9016.  sub.w MIDDLEY,d7
  9017.  subq #1,d7
  9018.  sub.w d1,d7
  9019.  move.w d7,disttobot
  9020.  
  9021.  move.w bottom(pc),d7
  9022.  move.w botclip,d4
  9023.  sub.w MIDDLEY,d4
  9024.  cmp.w d4,d1
  9025.  bge predontdrawfloor
  9026.  move.w topclip,d3
  9027.  sub.w MIDDLEY,d3
  9028.  cmp.w d3,d1
  9029.  bge.s .nocliptopfloor
  9030.  move.w d3,d1
  9031. .nocliptopfloor 
  9032.  cmp.w d3,d7
  9033.  ble predontdrawfloor
  9034.  cmp.w d4,d7
  9035.  blt.s .noclipbotfloor
  9036.  move.w d4,d7
  9037. .noclipbotfloor:
  9038.  
  9039. .doneclip:
  9040.  
  9041.  lea (a4,d1*2),a4
  9042.  addq #1,d7
  9043.  sub.w d1,d7
  9044.  
  9045. ;moveq #0,d0
  9046.  asr.w #1,d1
  9047. ; addx d0,d1
  9048.  
  9049. ; move.l #dists,a2
  9050.  move.w distaddr,d0
  9051.  muls #64,d0
  9052.  move.l d0,a2
  9053. ; muls #25,d0
  9054. ; adda.w d0,a2
  9055. ; lea (a2,d1*2),a2
  9056.  asr.w #1,d7
  9057.  ble predontdrawfloor 
  9058.  move.w d1,d0
  9059.  bne.s .notzero
  9060.  moveq #1,d0
  9061. .notzero
  9062.  add.w d0,d0
  9063.  muls linedir,d1
  9064.  add.l d1,a6
  9065. ; sub.l d1,REFPTR
  9066.  move.l TexturePal,a1
  9067.  add.l #256*32,a1
  9068.  move.l LineToUse,a5
  9069.  
  9070.  move.w #4,tonextline
  9071.  
  9072.  bra pix2h
  9073.  
  9074. pix1h:
  9075.  
  9076.  move.l a0,-(a7)
  9077.  
  9078.  move.l #leftsidetab,a4
  9079.  move.w top(pc),d1
  9080.   
  9081.  tst.w above
  9082.  beq.s clipfloor
  9083.  
  9084.  move.w MIDDLEY,d7
  9085.  subq #1,d7
  9086.  sub.w d1,d7
  9087.  move.w d7,disttobot
  9088.  
  9089.  move.w bottom(pc),d7
  9090.  move.w MIDDLEY,d3
  9091.  move.w d3,d4
  9092.  sub.w topclip,d3
  9093.  sub.w botclip,d4
  9094.  cmp.w d3,d1
  9095.  bge predontdrawfloor
  9096.  cmp.w d4,d7
  9097.  blt predontdrawfloor
  9098.  cmp.w d4,d1
  9099.  bge.s .nocliptoproof
  9100.  move.w d4,d1
  9101. .nocliptoproof
  9102.  cmp.w d3,d7
  9103.  blt doneclip
  9104.  move.w d3,d7
  9105.  bra doneclip
  9106.  
  9107. clipfloor:
  9108.  move.w BOTTOMY,d7
  9109.  sub.w MIDDLEY,d7
  9110.  subq #1,d7
  9111.  sub.w d1,d7
  9112.  move.w d7,disttobot
  9113.  
  9114.  move.w bottom(pc),d7
  9115.  move.w botclip,d4
  9116.  sub.w MIDDLEY,d4
  9117.  cmp.w d4,d1
  9118.  bge predontdrawfloor
  9119.  move.w topclip,d3
  9120.  sub.w MIDDLEY,d3
  9121.  cmp.w d3,d1
  9122.  bge.s .nocliptopfloor
  9123.  move.w d3,d1
  9124. .nocliptopfloor 
  9125.  cmp.w d3,d7
  9126.  ble predontdrawfloor
  9127.  cmp.w d4,d7
  9128.  blt.s .noclipbotfloor
  9129.  move.w d4,d7
  9130. .noclipbotfloor:
  9131.  
  9132. doneclip:
  9133.  
  9134.  lea (a4,d1*2),a4
  9135. ; move.l #dists,a2
  9136.  move.w distaddr,d0
  9137.  muls #64,d0
  9138.  move.l d0,a2
  9139. ; muls #25,d0
  9140. ; adda.w d0,a2
  9141. ; lea (a2,d1*2),a2
  9142.  sub.w d1,d7
  9143.  ble predontdrawfloor 
  9144.  move.w d1,d0
  9145.  bne.s .notzero
  9146.  moveq #1,d0
  9147. .notzero
  9148.  muls linedir,d1
  9149.  add.l d1,a6
  9150. ; sub.l d1,REFPTR
  9151.  move.l TexturePal,a1
  9152.  add.l #256*32,a1
  9153.  move.l LineToUse,a5
  9154.  
  9155.  move.w #2,tonextline
  9156.  
  9157. pix2h:
  9158.  
  9159.  tst.b gourfloor
  9160.  bne dogourfloor
  9161.  
  9162.  tst.b anyclipping
  9163.  beq dofloornoclip
  9164.  
  9165. dofloor:
  9166. ; move.w (a2)+,d0
  9167.  move.w leftclip,d3
  9168.  move.w rightclip,d4
  9169.  move.w rightsidetab-leftsidetab(a4),d2
  9170.  
  9171.  addq #1,d2
  9172.  cmp.w d3,d2
  9173.  ble.s nodrawline
  9174.  cmp.w d4,d2
  9175.  ble.s noclipright
  9176.  move.w d4,d2
  9177. noclipright:
  9178.  move.w (a4),d1
  9179.  cmp.w d4,d1
  9180.  bge.s nodrawline
  9181.  cmp.w d3,d1
  9182.  bge.s noclipleft
  9183.  move.w d3,d1
  9184. noclipleft:
  9185.  cmp.w d1,d2
  9186.  ble.s nodrawline
  9187.  
  9188.  move.w d1,leftedge
  9189.  move.w d2,rightedge
  9190.  
  9191. ; moveq #0,d1
  9192. ; moveq #0,d3
  9193. ; move.w leftbrighttab-leftsidetab(a4),d1
  9194. ; bge.s .okbl
  9195. ; moveq #0,d1
  9196. ;.okbl:
  9197.  
  9198. ; move.w rightbrighttab-leftsidetab(a4),d3
  9199. ; bge.s .okbr
  9200. ; moveq #0,d3
  9201. ;.okbr:
  9202.  
  9203. ; sub.w d1,d3
  9204. ; asl.w #8,d1
  9205. ; move.l d1,leftbright
  9206. ; swap d3
  9207. ; asr.l #5,d3
  9208. ; divs d5,d3
  9209. ; move.w d3,d5
  9210. ; muls.w d6,d5
  9211. ; asr.l #3,d5
  9212. ; clr.b d5
  9213. ; add.w d5,leftbright+2
  9214.  
  9215. ; ext.l d3
  9216. ; asl.l #5,d3
  9217. ; swap d3
  9218. ; asl.w #8,d3
  9219. ; move.l d3,brightspd
  9220.  
  9221.  move.l a6,a3
  9222.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  9223.  move.l a2,d7
  9224.  asl.l #2,d7
  9225.  ext.l d0
  9226.  divs.l d0,d7
  9227.  move.l d7,d0
  9228.  jsr (a5)
  9229.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  9230. nodrawline
  9231.  sub.w #1,disttobot
  9232.  move.w linedir(pc),d3
  9233.  adda.w d3,a6
  9234. ; ext.l d3
  9235. ; sub.l d3,REFPTR
  9236.  move.w tonextline,d3
  9237.  add.w d3,a4
  9238.  asr.w #1,d3
  9239.  add.w d3,d0
  9240.  subq #1,d7
  9241.  bgt dofloor
  9242.  
  9243. predontdrawfloor
  9244.  move.l (a7)+,a0
  9245.  
  9246. dontdrawfloor:
  9247.  
  9248.  rts
  9249.  
  9250. tonextline: dc.w 0
  9251. anyclipping: dc.w 0
  9252.  
  9253. dofloornoclip:
  9254. ; move.w (a2)+,d0
  9255.  move.w rightsidetab-leftsidetab(a4),d2
  9256.  addq #1,d2
  9257.  move.w (a4),d1
  9258.  move.w d1,leftedge
  9259.  move.w d2,rightedge
  9260.  
  9261. ; sub.w d1,d2
  9262.  
  9263. ; moveq #0,d1
  9264. ; moveq #0,d3
  9265. ; move.w leftbrighttab-leftsidetab(a4),d1
  9266. ; bge.s .okbl
  9267. ; moveq #0,d1
  9268. ;.okbl:
  9269.  
  9270. ; move.w rightbrighttab-leftsidetab(a4),d3
  9271. ; bge.s .okbr
  9272. ; moveq #0,d3
  9273. ;.okbr:
  9274.  
  9275. ; sub.w d1,d3
  9276. ; asl.w #8,d1
  9277. ; move.l d1,leftbright
  9278. ; swap d3
  9279. ; asr.l #5,d3
  9280. ; divs d2,d3
  9281. ; ext.l d3
  9282. ; asl.l #5,d3
  9283. ; swap d3
  9284. ; asl.w #8,d3
  9285. ; move.l d3,brightspd
  9286.  
  9287.  move.l a6,a3
  9288.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  9289.  move.l a2,d7
  9290.  asl.l #2,d7
  9291.  ext.l d0
  9292.  divs.l d0,d7
  9293.  move.l d7,d0
  9294.  jsr (a5)
  9295.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  9296.  sub.w #1,disttobot
  9297.  move.w linedir(pc),d3
  9298.  adda.w d3,a6
  9299. ; ext.l d3
  9300. ; sub.l d3,REFPTR
  9301.  move.w tonextline,d3
  9302.  add.w d3,a4
  9303.  asr.w #1,d3
  9304.  add.w d3,d0
  9305.  subq #1,d7
  9306.  bgt dofloornoclip
  9307.  
  9308.  bra predontdrawfloor
  9309.  
  9310. dogourfloor:
  9311.  tst.b anyclipping
  9312.  beq dofloornoclipGOUR
  9313.  
  9314. dofloorGOUR:
  9315. ; move.w (a2)+,d0
  9316.  move.w leftclip,d3
  9317.  move.w rightclip,d4
  9318.  move.w rightsidetab-leftsidetab(a4),d2
  9319.  
  9320.  move.w d2,d5
  9321.  sub.w (a4),d5
  9322.  addq #1,d5
  9323.  moveq #0,d6
  9324.  
  9325.  addq #1,d2
  9326.  cmp.w d3,d2
  9327.  ble nodrawlineGOUR
  9328.  cmp.w d4,d2
  9329.  ble.s nocliprightGOUR
  9330.  move.w d4,d2
  9331. nocliprightGOUR:
  9332.  move.w (a4),d1
  9333.  cmp.w d4,d1
  9334.  bge nodrawlineGOUR
  9335.  cmp.w d3,d1
  9336.  bge.s noclipleftGOUR
  9337.  move.w d3,d6
  9338.  subq #1,d6
  9339.  sub.w d1,d6
  9340.  move.w d3,d1
  9341. noclipleftGOUR:
  9342.  cmp.w d1,d2
  9343.  ble nodrawlineGOUR
  9344.  
  9345.  move.w d1,leftedge
  9346.  move.w d2,rightedge
  9347.  
  9348.  move.l a2,d2
  9349.  asl.l #2,d2
  9350.  ext.l d0
  9351.  divs.l d0,d2
  9352.  move.l d2,dst
  9353.  asr.l #7,d2
  9354.  asr.l #2,d2
  9355. ; addq #5,d2
  9356. ; add.w lighttype,d2
  9357.  
  9358.  moveq #0,d1
  9359.  moveq #0,d3
  9360.  move.w leftbrighttab-leftsidetab(a4),d1
  9361.  add.w d2,d1
  9362.  bge.s .okbl
  9363.  moveq #0,d1
  9364. .okbl:
  9365. ; asr.w #1,d1
  9366.  cmp.w #30,d1
  9367.  ble.s .okdl
  9368.  move.w #30,d1
  9369. .okdl:
  9370.  
  9371.  move.w rightbrighttab-leftsidetab(a4),d3
  9372.  add.w d2,d3
  9373.  bge.s .okbr
  9374.  moveq #0,d3
  9375. .okbr:
  9376. ; asr.w #1,d3
  9377.  cmp.w #30,d3
  9378.  ble.s .okdr
  9379.  move.w #30,d3
  9380. .okdr:
  9381.  
  9382.  sub.w d1,d3
  9383.  asl.w #8,d1
  9384.  move.w d1,leftbright
  9385.  swap d3
  9386.  tst.l d3
  9387.  bgt.s .OKITSPOSALREADY 
  9388.  neg.l d3
  9389.  asr.l #6,d3
  9390.  divs d5,d3
  9391.  neg.w d3
  9392.  bra.s .OKNOWITSNEG
  9393.  
  9394. .OKITSPOSALREADY
  9395.  asr.l #6,d3
  9396.  divs d5,d3
  9397. .OKNOWITSNEG
  9398.  muls d3,d6
  9399.  add.w #256*4,d6
  9400.  asr.w #2,d6
  9401.  clr.b d6
  9402.  add.w leftbright,d6
  9403.  bge.s .oklbnn
  9404.  moveq #0,d6
  9405. .oklbnn:
  9406.  move.w d6,leftbright
  9407.  
  9408.  ext.l d3
  9409.  asr.l #2,d3
  9410. ; swap d3
  9411. ; asl.w #8,d3
  9412.  move.w d3,brightspd
  9413.  
  9414.  move.l a6,a3
  9415.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  9416.  move.l dst,d0
  9417.  move.l TexturePal,a1
  9418.  add.l #256*32,a1
  9419.  move.l floortile,a0
  9420.  adda.w whichtile,a0
  9421.  jsr pastfloorbright
  9422.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  9423. nodrawlineGOUR
  9424.  
  9425.  sub.w #1,disttobot
  9426.  
  9427.  move.w linedir(pc),d3
  9428.  adda.w d3,a6
  9429. ; ext.l d3
  9430. ; sub.l d3,REFPTR
  9431.  move.w tonextline,d3
  9432.  add.w d3,a4
  9433.  asr.w #1,d3
  9434.  add.w d3,d0
  9435.  subq #1,d7
  9436.  bgt dofloorGOUR
  9437.  
  9438. predontdrawfloorGOUR
  9439.  move.l (a7)+,a0
  9440.  
  9441. dontdrawfloorGOUR:
  9442.  
  9443.  rts
  9444.  
  9445. REFPTR: dc.l 0
  9446.  
  9447. dofloornoclipGOUR:
  9448. ; move.w (a2)+,d0
  9449.  move.w rightsidetab-leftsidetab(a4),d2
  9450.  addq #1,d2
  9451.  move.w (a4),d1
  9452.  move.w d1,leftedge
  9453.  move.w d2,rightedge
  9454.  
  9455.  sub.w d1,d2
  9456.  
  9457.  move.l a2,d6
  9458.  asl.l #2,d6
  9459.  ext.l d0
  9460.  divs.l d0,d6
  9461.  move.l d6,d5
  9462.  asr.l #7,d5
  9463.  asr.l #2,d5
  9464. ; addq #5,d5
  9465. ; add.w lighttype,d5
  9466.  
  9467.  moveq #0,d1
  9468.  moveq #0,d3
  9469.  move.w leftbrighttab-leftsidetab(a4),d1
  9470.  add.w d5,d1
  9471.  bge.s .okbl
  9472.  moveq #0,d1
  9473. .okbl:
  9474. ; asr.w #1,d1
  9475.  cmp.w #30,d1
  9476.  ble.s .okdl
  9477.  move.w #30,d1
  9478. .okdl:
  9479.  
  9480.  move.w rightbrighttab-leftsidetab(a4),d3
  9481.  add.w d5,d3
  9482.  bge.s .okbr
  9483.  moveq #0,d3
  9484. .okbr:
  9485. ; asr.w #1,d3
  9486.  cmp.w #30,d3
  9487.  ble.s .okdr
  9488.  move.w #30,d3
  9489. .okdr:
  9490.  
  9491. ; sub.w d1,d3
  9492. ; asl.w #8,d1
  9493. ; move.l d1,leftbright
  9494. ; swap d3
  9495. ; asr.l #5,d3
  9496. ; divs d2,d3
  9497. ; ext.l d3
  9498. ; asl.l #5,d3
  9499. ; swap d3
  9500. ; asl.w #8,d3
  9501. ; move.l d3,brightspd
  9502.  
  9503.  sub.w d1,d3
  9504.  asl.w #8,d1
  9505.  move.w d1,leftbright
  9506.  swap d3
  9507.  ext.l d2
  9508.  divs.l d2,d3
  9509.  asr.l #8,d3
  9510.  move.w d3,brightspd
  9511.  
  9512.  move.l a6,a3
  9513.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  9514.  move.l d6,d0
  9515.  move.l d0,dst
  9516.  move.l TexturePal,a1
  9517.  add.l #256*32,a1
  9518.  move.l floortile,a0
  9519.  adda.w whichtile,a0
  9520.  jsr pastfloorbright
  9521.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  9522.  sub.w #1,disttobot
  9523.  
  9524.  move.w linedir(pc),d3
  9525.  adda.w d3,a6
  9526. ; ext.l d3
  9527. ; sub.l d3,REFPTR
  9528.  
  9529.  move.w tonextline,d3
  9530.  add.w d3,a4
  9531.  asr.w #1,d3
  9532.  add.w d3,d0
  9533.  subq #1,d7
  9534.  bgt dofloornoclipGOUR
  9535.  
  9536.  bra predontdrawfloorGOUR
  9537.  
  9538.  
  9539.  
  9540. dists:
  9541. ; incbin "floordists"
  9542. drawit: dc.w 0
  9543.  
  9544. LineToUse: dc.l 0
  9545.  
  9546. ***************************
  9547. * Right then, time for the floor
  9548. * routine...
  9549. * For test purposes, give it
  9550. * a3 = point to screen
  9551. * d0= z distance away
  9552. * and sinval+cosval must be set up.
  9553. ***************************
  9554.  
  9555. BLACKFLOOR:
  9556.  moveq #0,d0
  9557.  bra.s DOBLACK
  9558.  
  9559. SimpleFloorLine:
  9560.  
  9561.  CACHE_OFF d2
  9562.  
  9563.  move.l #doacrossline,a1
  9564.  move.w leftedge(pc),d1
  9565.  move.w rightedge(pc),d3
  9566.  sub.w d1,d3
  9567.  lea (a1,d1.w*4),a1
  9568.  move.w (a1,d3.w*4),d4
  9569.  move.w #$4e75,(a1,d3.w*4)
  9570.  
  9571.  tst.b CLRNOFLOOR
  9572.  bne.s BLACKFLOOR
  9573.  
  9574.  move.l #PLAINSCALE,a2
  9575.  
  9576.  move.w d0,d2
  9577.  move.w lighttype,d1
  9578.  asr.w #8,d2
  9579.  add.w #5,d1
  9580.  add.w d2,d1
  9581.  bge.s .fixedbright
  9582.  moveq #0,d1
  9583. .fixedbright:
  9584.  cmp.w #28,d1
  9585.  ble.s .smallbright
  9586.  move.w #28,d1
  9587. .smallbright:
  9588.  lea (a2,d1.w*2),a2
  9589.  
  9590.  move.w whichtile,d0
  9591.  move.w d0,d1
  9592.  and.w #$3,d1
  9593.  and.w #$300,d0
  9594.  lsl.b #6,d1
  9595.  move.b d1,d0
  9596.  move.w d0,tstwhich
  9597.  move.w (a2,d0.w),d0
  9598.  
  9599. DOBLACK:
  9600.  jsr (a1)
  9601.  move.w d4,(a1,d3.w*4)
  9602.  
  9603.  CACHE_ON d2
  9604.  
  9605.  rts
  9606.  
  9607. tstwhich: dc.w 0
  9608. whichtile: dc.w 0
  9609.   
  9610. PLAINSCALE: 
  9611. ;incbin "ab3:includes/plainscale"
  9612.   
  9613. storeit: dc.l 0
  9614.  
  9615. doacrossline:
  9616. val SET 0
  9617.  REPT 32
  9618.  move.w d0,val(a3)
  9619. val SET val+4
  9620.  ENDR
  9621. val SET val+4
  9622.  REPT 32
  9623.  move.w d0,val(a3)
  9624. val SET val+4
  9625.  ENDR
  9626. val SET val+4
  9627.  REPT 32
  9628.  move.w d0,val(a3)
  9629. val SET val+4
  9630.  ENDR
  9631.  rts
  9632.  
  9633.  
  9634. leftedge: dc.w 0
  9635. rightedge: dc.w 0
  9636.  
  9637. rndpt: dc.l rndtab
  9638.  
  9639.  
  9640. dst: dc.l 0
  9641.  
  9642. FloorLine:
  9643.  
  9644.  move.l floortile,a0
  9645.  adda.w whichtile,a0
  9646.  move.w lighttype,d1
  9647.  move.l d0,dst    ; *4
  9648.  move.l d0,d2    ; *4
  9649. *********************
  9650. * Old version
  9651.  asr.l #2,d2
  9652.  asr.l #8,d2
  9653.  add.w #5,d1
  9654. *********************
  9655. ; asr.w #3,d2
  9656. ; sub.w #4,d2
  9657. ; cmp.w #6,d2
  9658. ; blt.s flbrbr
  9659. ; move.w #6,d2
  9660. ;flbrbr:
  9661. *********************
  9662.  add.w d2,d1
  9663.  bge.s .fixedbright
  9664.  moveq #0,d1
  9665. .fixedbright:
  9666.  cmp.w #28,d1
  9667.  ble.s .smallbright
  9668.  move.w #28,d1
  9669. .smallbright:
  9670.  move.l TexturePal,a1
  9671.  add.l #256*32,a1
  9672.  add.l floorbright(pc,d1.w*4),a1
  9673.  bra pastfloorbright
  9674.  
  9675. ConstCol: dc.w 0
  9676.  
  9677. BumpLine:
  9678.  
  9679.  tst.b smoothbumps
  9680.  beq.s Chunky
  9681.  
  9682.  move.l #SmoothTile,a0
  9683.  lea Smoothscalecols,a1
  9684.  bra pastast
  9685.  
  9686. Chunky:
  9687.  
  9688.  moveq #0,d2
  9689.  move.l #Bumptile,a0
  9690.  move.w whichtile,d2
  9691.  adda.w d2,a0
  9692.  ror.l #2,d2
  9693.  lsr.w #6,d2
  9694.  rol.l #2,d2
  9695.  and.w #15,d2
  9696.  move.l #ConstCols,a1
  9697.  move.w (a1,d2.w*2),ConstCol
  9698.  lea Bumpscalecols,a1
  9699.  
  9700. pastast:
  9701.  move.w lighttype,d1
  9702.  
  9703.  move.l d0,dst
  9704.  
  9705.  move.l d0,d2
  9706. *********************
  9707. * Old version
  9708.  asr.l #2,d2
  9709.  asr.l #8,d2
  9710.  add.w #5,d1
  9711. *********************
  9712. ; asr.w #3,d2
  9713. ; sub.w #4,d2
  9714. ; cmp.w #6,d2
  9715. ; blt.s flbrbr
  9716. ; move.w #6,d2
  9717. ;flbrbr:
  9718. *********************
  9719.  add.w d2,d1
  9720.  bge.s .fixedbright
  9721.  moveq #0,d1
  9722. .fixedbright:
  9723.  cmp.w #31,d1
  9724.  ble.s .smallbright
  9725.  move.w #31,d1
  9726. .smallbright:
  9727.  add.l floorbright(pc,d1.w*4),a1
  9728.  bra pastfloorbright
  9729.  
  9730.  
  9731. floorbright:
  9732.  dc.l 512*0
  9733.  dc.l 512*1
  9734.  dc.l 512*2
  9735.  dc.l 512*3
  9736.  dc.l 512*4
  9737.  
  9738.  dc.l 512*5
  9739.  dc.l 512*6
  9740.  dc.l 512*7
  9741.  dc.l 512*8
  9742.  dc.l 512*9
  9743.  
  9744.  dc.l 512*10
  9745.  dc.l 512*11
  9746.  dc.l 512*12
  9747.  dc.l 512*13
  9748.  dc.l 512*14
  9749.  
  9750.  dc.l 512*15
  9751.  dc.l 512*16
  9752.  dc.l 512*17
  9753.  dc.l 512*18
  9754.  dc.l 512*19
  9755.  
  9756.  dc.l 512*20
  9757.  dc.l 512*21
  9758.  dc.l 512*22
  9759.  dc.l 512*23
  9760.  dc.l 512*24
  9761.  
  9762.  dc.l 512*25
  9763.  dc.l 512*26
  9764.  dc.l 512*27
  9765.  dc.l 512*28
  9766.  dc.l 512*29
  9767.  
  9768.  dc.l 512*30
  9769.  dc.l 512*31
  9770.  
  9771. widthleft: dc.w 0
  9772. scaleval: dc.w 0
  9773. sxoff: dc.l 0
  9774. szoff: dc.l 0
  9775. xoff34: dc.w 0
  9776. zoff34: dc.w 0
  9777. scosval: dc.w 0
  9778. ssinval: dc.w 0
  9779.  
  9780.  
  9781. floorsetbright:
  9782.  move.l #walltiles,a0
  9783.  
  9784. pastfloorbright:
  9785.  
  9786.  move.l d0,d1
  9787.  muls cosval,d1    ; change in x across whole width
  9788.  move.l d0,d2
  9789.  muls sinval,d2    ; change in z across whole width
  9790.  neg.l d2
  9791.  ifne CHEESEY
  9792.  asr.l #3,d2
  9793.  asr.l #3,d1
  9794.  endc
  9795.  ifeq CHEESEY
  9796.  asr.l #2,d2
  9797.  asr.l #2,d1
  9798.  endc
  9799. scaleprog:
  9800.  move.w scaleval(pc),d3
  9801.  beq.s .samescale
  9802.  bgt.s .scaledown
  9803.  neg.w d3
  9804.  asr.l d3,d1
  9805.  asr.l d3,d2
  9806.  bra.s .samescale
  9807. .scaledown:
  9808.  asl.l d3,d1
  9809.  asl.l d3,d2
  9810. .samescale
  9811.  
  9812.  
  9813.  move.l d1,d3 ;    z cos
  9814.  move.l d3,d6
  9815.  move.l d3,d5
  9816.  asr.l #1,d6
  9817.  add.l d6,d3
  9818.  asr.l #1,d3
  9819.  
  9820.  move.l d2,d4    ; z sin
  9821.  move.l d4,d6
  9822.  asr.l #1,d6
  9823.  add.l d4,d6
  9824.  add.l d3,d4
  9825.  neg.l d4    ; start x
  9826.  
  9827.  asr.l #1,d6    ; zsin/2
  9828.  sub.l d6,d5    ; start z
  9829.  
  9830.  add.l sxoff,d4
  9831.  add.l szoff,d5
  9832.  
  9833.  tst.b FULLSCR
  9834.  beq.s .nob
  9835.  
  9836.  moveq #0,d6
  9837.  move.w leftedge(pc),d6
  9838.  beq.s .nomultleftB
  9839.  
  9840.  add.l d6,d6
  9841.  divs #3,d6
  9842.  ext.l d6
  9843.  
  9844.  move.l d1,a4
  9845.  move.l d2,a5
  9846.  
  9847.  muls.l d6,d1
  9848.  asr.l #7,d1
  9849.  add.l d1,d4
  9850.  
  9851.  muls.l d6,d2
  9852.  asr.l #7,d2
  9853.  add.l d2,d5
  9854.  move.l a4,d1
  9855.  move.l a5,d2
  9856.  
  9857.  move.w leftedge(pc),d6
  9858.  
  9859. .nomultleftB:
  9860.  
  9861.  move.w d4,startsmoothx
  9862.  move.w d5,startsmoothz
  9863.  
  9864.  asr.l #8,d4
  9865.  asl.l #8,d5
  9866. ; add.w szoff,d5
  9867. ; add.w sxoff,d4
  9868. ; and.w #63,d4
  9869. ; and.w #63*256,d5
  9870.  
  9871.  move.w d4,d5
  9872.  
  9873.  asr.l #6,d1
  9874.  asr.l #6,d2
  9875.  divs.l #3,d1
  9876.  divs.l #3,d2
  9877.  
  9878.  bra.s doneallmult
  9879.  
  9880. .nob 
  9881.  
  9882.  moveq #0,d6
  9883.  move.w leftedge(pc),d6
  9884.  beq.s nomultleft
  9885.  
  9886.  move.l d1,a4
  9887.  move.l d2,a5
  9888.  
  9889.  muls.l d6,d1
  9890.  asr.l #7,d1
  9891.  add.l d1,d4
  9892.  
  9893.  muls.l d6,d2
  9894.  asr.l #7,d2
  9895.  add.l d2,d5
  9896.  move.l a4,d1
  9897.  move.l a5,d2
  9898.  
  9899.  move.w leftedge(pc),d6
  9900.  
  9901. nomultleft:
  9902.  
  9903.  move.w d4,startsmoothx
  9904.  move.w d5,startsmoothz
  9905.  
  9906.  asr.l #8,d4
  9907.  asl.l #8,d5
  9908.  
  9909.  
  9910. ; add.w szoff,d5
  9911. ; add.w sxoff,d4
  9912. ; and.w #63,d4
  9913. ; and.w #63*256,d5
  9914.  
  9915.  move.w d4,d5
  9916.  
  9917.  asr.l #7,d1
  9918.  asr.l #7,d2
  9919. ; divs.l #3,d1
  9920. ; divs.l #3,d2
  9921.  
  9922. doneallmult:
  9923.  
  9924.  move.w d1,a4
  9925.  move.w d2,a5
  9926.  asl.l #8,d2
  9927. ; and.w #%0011111100000000,d2
  9928.  asr.l #8,d1
  9929.  move.w d1,d2
  9930.  ifeq CHEESEY
  9931.  move.l #$3fff3fff,d1
  9932.  endc
  9933.  ifne CHEESEY
  9934.  move.l #$1fff1fff,d1
  9935.  endc
  9936.  and.l d1,d5
  9937. ; swap d5
  9938. ; move.w startsmoothz,d5
  9939. ; swap d5
  9940. ; swap d2
  9941. ; move.w a5,d2
  9942. ; swap d2
  9943.  
  9944. ***********************************
  9945.  
  9946.  
  9947.  tst.b DOUBLEWIDTH
  9948.  beq.s .nodoub
  9949.  
  9950.  and.b #$fe,d6
  9951.  
  9952.  move.w d6,a2
  9953.  moveq #0,d0 
  9954.  move.w rightedge(pc),d3 
  9955.  lea (a3,a2.w),a3 
  9956.  move.w d3,d7
  9957.  sub.w a2,d7
  9958.  asr.w #1,d7
  9959.  move.w startsmoothx,d3
  9960.  
  9961.  tst.b usewater
  9962.  bne texturedwaterDOUB
  9963. ; tst.b gourfloor
  9964.  bra gouraudfloorDOUB
  9965.  
  9966. .nodoub:
  9967.  
  9968.  move.w d6,a2
  9969.  moveq #0,d0 
  9970.  move.w rightedge(pc),d3 
  9971.  lea (a3,a2.w),a3 
  9972.  move.w d3,d7
  9973.  sub.w a2,d7
  9974.  
  9975. intofirststrip:
  9976. allintofirst:
  9977.  
  9978.  move.w startsmoothx,d3
  9979.  
  9980. tstwat:
  9981.  
  9982.  tst.b usewater
  9983.  bne texturedwater
  9984. ; tst.b gourfloor
  9985.  bra gouraudfloor
  9986.  
  9987.  
  9988.  
  9989. ******************************
  9990. * BumpMap the floor/ceiling! *
  9991.  tst.b usebumps
  9992.  bne.s BumpMap
  9993. ******************************
  9994.  
  9995. ordinary:
  9996.  moveq #0,d0
  9997.  
  9998.  dbra d7,acrossscrn
  9999.  rts
  10000.  
  10001. usebumps: dc.w $0
  10002. smoothbumps: dc.w $0
  10003. gourfloor: dc.w 0
  10004.  
  10005.  include "ab3:source_4000/bumpmap.s"
  10006.  
  10007.  CNOP 0,4
  10008. backbefore:
  10009.  and.w d1,d5
  10010.  move.b (a0,d5.w*4),d0
  10011.  add.w a4,d3
  10012.  addx.l d6,d5
  10013.  move.w (a1,d0.w*2),(a3)
  10014.  addq #4,a3
  10015.  dbcs d7,acrossscrn
  10016.  dbcc d7,backbefore
  10017.  bra.s past1
  10018.  
  10019. acrossscrn:
  10020.  and.w d1,d5
  10021.  move.b (a0,d5.w*4),d0
  10022.  add.w a4,d3
  10023.  addx.l d2,d5
  10024.  move.w (a1,d0.w*2),(a3)
  10025.  addq #4,a3
  10026.  dbcs d7,acrossscrn
  10027.  dbcc d7,backbefore
  10028. past1:
  10029.  bcc.s gotoacross
  10030.  
  10031.  move.w d4,d7
  10032.  bne.s .notdoneyet
  10033.  rts
  10034. .notdoneyet:
  10035.  
  10036.  cmp.w #32,d7
  10037.  ble.s .notoowide
  10038.  move.w #32,d7
  10039. .notoowide
  10040.  sub.w d7,d4  
  10041.  addq #4,a3
  10042.  
  10043.  dbra d7,backbefore
  10044.  rts
  10045.  
  10046.  
  10047. gotoacross:
  10048.  
  10049.  move.w d4,d7
  10050.  bne.s .notdoneyet
  10051.  rts
  10052. .notdoneyet:
  10053.  
  10054.  cmp.w #32,d7
  10055.  ble.s .notoowide
  10056.  move.w #32,d7
  10057. .notoowide
  10058.  sub.w d7,d4  
  10059.  addq #4,a3
  10060.  
  10061.  dbra d7,acrossscrn
  10062.  rts
  10063.  
  10064. leftbright: dc.l 0
  10065. brightspd: dc.l 0
  10066.  
  10067. gouraudfloor:
  10068.  
  10069.  move.w leftbright,d0
  10070.  move.l d1,d4
  10071.  move.w brightspd,d1
  10072.  
  10073.  move.w d7,d3
  10074.  asr.w #1,d7
  10075.  btst #0,d3
  10076.  beq.s .nosingle1
  10077.  move.w d5,d3
  10078.  move.l d5,d6
  10079.  lsr.w #8,d3
  10080.  swap d6
  10081.  move.b d3,d6
  10082.  move.w d0,d3
  10083.  ifeq CHEESEY
  10084.  move.b (a0,d6.w*4),d3
  10085.  endc
  10086.  ifne CHEESEY
  10087.  move.b (a0,d6.w),d3
  10088.  endc
  10089.  
  10090.  add.w d1,d0
  10091.  add.l d2,d5
  10092.  and.l d4,d5
  10093.  move.b (a1,d3.w),(a3)+
  10094. .nosingle1
  10095.  
  10096.  move.w d7,d3
  10097.  asr.w #1,d7
  10098.  btst #0,d3
  10099.  beq.s .nosingle2
  10100.  move.w d5,d3
  10101.  move.l d5,d6
  10102.  lsr.w #8,d3
  10103.  swap d6
  10104.  move.b d3,d6
  10105.  move.w d0,d3
  10106.  ifeq CHEESEY
  10107.  move.b (a0,d6.w*4),d3
  10108.  endc
  10109.  ifne CHEESEY
  10110.  move.b (a0,d6.w),d3
  10111.  endc
  10112.  add.w d1,d0
  10113.  add.l d2,d5
  10114.  and.l d4,d5
  10115.  move.l d5,d6
  10116.  swap d6
  10117.  move.b (a1,d3.w),(a3)+
  10118.  move.w d5,d3
  10119.  lsr.w #8,d3
  10120.  move.b d3,d6
  10121.  move.w d0,d3
  10122.  ifeq CHEESEY
  10123.  move.b (a0,d6.w*4),d3
  10124.  endc
  10125.  ifne CHEESEY
  10126.  move.b (a0,d6.w),d3
  10127.  endc
  10128.  add.w d1,d0
  10129.  add.l d2,d5
  10130.  and.l d4,d5
  10131.  move.b (a1,d3.w),(a3)+
  10132.  
  10133. .nosingle2
  10134.  
  10135.  move.l d5,d6
  10136.  swap d6
  10137.  
  10138.  dbra d7,acrossscrngour
  10139.  rts
  10140.  
  10141.  CNOP 0,4
  10142.  
  10143. acrossscrngour:
  10144.  move.w d5,d3
  10145.  lsr.w #8,d3
  10146.  move.b d3,d6
  10147.  move.w d0,d3
  10148.  ifeq CHEESEY
  10149.  move.b (a0,d6.w*4),d3
  10150.  endc
  10151.  ifne CHEESEY
  10152.  move.b (a0,d6.w),d3
  10153.  endc
  10154.  add.w d1,d0
  10155.  add.l d2,d5
  10156.  and.l d4,d5
  10157.  move.l d5,d6
  10158.  swap d6
  10159.  move.b (a1,d3.w),(a3)+
  10160.  move.w d5,d3
  10161.  lsr.w #8,d3
  10162.  move.b d3,d6
  10163.  move.w d0,d3
  10164.  ifeq CHEESEY
  10165.  move.b (a0,d6.w*4),d3
  10166.  endc
  10167.  ifne CHEESEY
  10168.  move.b (a0,d6.w),d3
  10169.  endc
  10170.  add.w d1,d0
  10171.  add.l d2,d5
  10172.  and.l d4,d5
  10173.  move.l d5,d6
  10174.  swap d6
  10175.  move.b (a1,d3.w),(a3)+
  10176.  move.w d5,d3
  10177.  lsr.w #8,d3
  10178.  move.b d3,d6
  10179.  move.w d0,d3
  10180.  ifeq CHEESEY
  10181.  move.b (a0,d6.w*4),d3
  10182.  endc
  10183.  ifne CHEESEY
  10184.  move.b (a0,d6.w),d3
  10185.  endc
  10186.  add.w d1,d0
  10187.  add.l d2,d5
  10188.  and.l d4,d5
  10189.  move.l d5,d6
  10190.  swap d6
  10191.  move.b (a1,d3.w),(a3)+
  10192.  move.w d5,d3
  10193.  lsr.w #8,d3
  10194.  move.b d3,d6
  10195.  move.w d0,d3
  10196.  ifeq CHEESEY
  10197.  move.b (a0,d6.w*4),d3
  10198.  endc
  10199.  ifne CHEESEY
  10200.  move.b (a0,d6.w),d3
  10201.  endc
  10202.  add.w d1,d0
  10203.  add.l d2,d5
  10204.  and.l d4,d5
  10205.  move.l d5,d6
  10206.  swap d6
  10207.  move.b (a1,d3.w),(a3)+
  10208.  dbra d7,acrossscrngour
  10209.  
  10210.  rts
  10211.  
  10212.  
  10213. gouraudfloorDOUB:
  10214.  
  10215.  move.w leftbright,d0
  10216.  move.l d1,d4
  10217.  move.w brightspd,d1
  10218.  add.w d1,d1
  10219.  add.l d2,d2
  10220.  
  10221.  move.w d7,d3
  10222.  asr.w #1,d7
  10223.  btst #0,d3
  10224.  beq.s .nosingle1
  10225.  move.w d5,d3
  10226.  move.l d5,d6
  10227.  lsr.w #8,d3
  10228.  swap d6
  10229.  move.b d3,d6
  10230.  move.w d0,d3
  10231.  ifeq CHEESEY
  10232.  move.b (a0,d6.w*4),d3
  10233.  endc
  10234.  ifne CHEESEY
  10235.  move.b (a0,d6.w),d3
  10236.  endc
  10237.  add.w d1,d0
  10238.  add.l d2,d5
  10239.  and.l d4,d5
  10240.  move.w (a1,d3.w),(a3)+
  10241. .nosingle1
  10242.  
  10243.  move.w d7,d3
  10244.  asr.w #1,d7
  10245.  btst #0,d3
  10246.  beq.s .nosingle2
  10247.  move.w d5,d3
  10248.  move.l d5,d6
  10249.  lsr.w #8,d3
  10250.  swap d6
  10251.  move.b d3,d6
  10252.  move.w d0,d3
  10253.  ifeq CHEESEY
  10254.  move.b (a0,d6.w*4),d3
  10255.  endc
  10256.  ifne CHEESEY
  10257.  move.b (a0,d6.w),d3
  10258.  endc
  10259.  add.w d1,d0
  10260.  add.l d2,d5
  10261.  and.l d4,d5
  10262.  move.l d5,d6
  10263.  swap d6
  10264.  move.w (a1,d3.w),(a3)+
  10265.  move.w d5,d3
  10266.  lsr.w #8,d3
  10267.  move.b d3,d6
  10268.  move.w d0,d3
  10269.  ifeq CHEESEY
  10270.  move.b (a0,d6.w*4),d3
  10271.  endc
  10272.  ifne CHEESEY
  10273.  move.b (a0,d6.w),d3
  10274.  endc
  10275.  add.w d1,d0
  10276.  add.l d2,d5
  10277.  and.l d4,d5
  10278.  move.w (a1,d3.w),(a3)+
  10279.  
  10280. .nosingle2
  10281.  
  10282.  move.l d5,d6
  10283.  swap d6
  10284.  
  10285.  dbra d7,acrossscrngourD
  10286.  rts
  10287.  
  10288.  CNOP 0,4
  10289.  
  10290. acrossscrngourD:
  10291.  move.w d5,d3
  10292.  lsr.w #8,d3
  10293.  move.b d3,d6
  10294.  move.w d0,d3
  10295.  ifeq CHEESEY
  10296.  move.b (a0,d6.w*4),d3
  10297.  endc
  10298.  ifne CHEESEY
  10299.  move.b (a0,d6.w),d3
  10300.  endc
  10301.  add.w d1,d0
  10302.  add.l d2,d5
  10303.  and.l d4,d5
  10304.  move.l d5,d6
  10305.  swap d6
  10306.  move.w (a1,d3.w),(a3)+
  10307.  move.w d5,d3
  10308.  lsr.w #8,d3
  10309.  move.b d3,d6
  10310.  move.w d0,d3
  10311.  ifeq CHEESEY
  10312.  move.b (a0,d6.w*4),d3
  10313.  endc
  10314.  ifne CHEESEY
  10315.  move.b (a0,d6.w),d3
  10316.  endc
  10317.  add.w d1,d0
  10318.  add.l d2,d5
  10319.  and.l d4,d5
  10320.  move.l d5,d6
  10321.  swap d6
  10322.  move.w (a1,d3.w),(a3)+
  10323.  move.w d5,d3
  10324.  lsr.w #8,d3
  10325.  move.b d3,d6
  10326.  move.w d0,d3
  10327.  ifeq CHEESEY
  10328.  move.b (a0,d6.w*4),d3
  10329.  endc
  10330.  ifne CHEESEY
  10331.  move.b (a0,d6.w),d3
  10332.  endc
  10333.  add.w d1,d0
  10334.  add.l d2,d5
  10335.  and.l d4,d5
  10336.  move.l d5,d6
  10337.  swap d6
  10338.  move.w (a1,d3.w),(a3)+
  10339.  move.w d5,d3
  10340.  lsr.w #8,d3
  10341.  move.b d3,d6
  10342.  move.w d0,d3
  10343.  ifeq CHEESEY
  10344.  move.b (a0,d6.w*4),d3
  10345.  endc
  10346.  ifne CHEESEY
  10347.  move.b (a0,d6.w),d3
  10348.  endc
  10349.  add.w d1,d0
  10350.  add.l d2,d5
  10351.  and.l d4,d5
  10352.  move.l d5,d6
  10353.  swap d6
  10354.  move.w (a1,d3.w),(a3)+
  10355.  dbra d7,acrossscrngourD
  10356.  
  10357.  rts
  10358.  
  10359.  
  10360. ;backbeforegour:
  10361. ; and.w #63*256+63,d5
  10362. ; move.b (a0,d5.w*4),d0
  10363. ; add.l d1,d0
  10364. ; bcc.s .nomoreb
  10365. ; add.w #256,d0
  10366. ;.nomoreb:
  10367. ; add.w a4,d3
  10368. ; move.w (a1,d0.w*2),(a3)+
  10369. ; addx.l d6,d5
  10370. ; dbcs d7,acrossscrngour
  10371. ; dbcc d7,backbeforegour
  10372. ; rts
  10373. ; bra.s past1gour
  10374.  
  10375. ;acrossscrngour:
  10376. ; and.l #$3f3f,d5 
  10377. ; move.b (a0,d5.w*4),d0
  10378. ; add.l d1,d0
  10379. ; bcc.s .nomoreb
  10380. ; add.w #256,d0
  10381. ;.nomoreb:
  10382. ; add.w a4,d3
  10383. ; move.w (a1,d0.w*2),(a3)+
  10384. ; addx.l d2,d5
  10385. ; dbcs d7,acrossscrngour
  10386. ; dbcc d7,backbeforegour
  10387. ;past1gour:
  10388. ; rts
  10389.  
  10390.  move.w d4,d7
  10391.  bne.s .notdoneyet
  10392.  move.l d0,leftbright
  10393.  
  10394.  rts
  10395. .notdoneyet:
  10396.  
  10397.  cmp.w #32,d7
  10398.  ble.s .notoowide
  10399.  move.w #32,d7
  10400. .notoowide
  10401.  sub.w d7,d4  
  10402.  addq #4,a3
  10403.  
  10404. ; dbra d7,backbeforegour
  10405.  rts
  10406.  
  10407.  
  10408. gotoacrossgour:
  10409.  
  10410.  move.w d4,d7
  10411.  bne.s .notdoneyet
  10412.  rts
  10413. .notdoneyet:
  10414.  
  10415.  cmp.w #32,d7
  10416.  ble.s .notoowide
  10417.  move.w #32,d7
  10418. .notoowide
  10419.  sub.w d7,d4  
  10420.  addq #4,a3
  10421.  
  10422.  dbra d7,acrossscrngour
  10423.  rts
  10424.  
  10425.  
  10426. waterpt: dc.l waterlist
  10427.  
  10428. waterlist:
  10429.  dc.l waterfile
  10430.  dc.l waterfile+2
  10431.  dc.l waterfile+256
  10432.  dc.l waterfile+256+2
  10433.  dc.l waterfile+512
  10434.  dc.l waterfile+512+2
  10435.  dc.l waterfile+768
  10436.  dc.l waterfile+768+2
  10437. ; dc.l waterfile+768
  10438. ; dc.l waterfile+512+2
  10439. ; dc.l waterfile+512
  10440. ; dc.l waterfile+256+2
  10441. ; dc.l waterfile+256
  10442. ; dc.l waterfile+2
  10443. endwaterlist:
  10444.  
  10445. watertouse: dc.l waterfile
  10446.  
  10447. wtan: dc.w 0
  10448. wateroff: dc.l 0
  10449.  
  10450. REFLECTIONWATER:
  10451.  
  10452.  move.l d1,d4
  10453.  
  10454.  add.l wateroff,d5
  10455.  
  10456.  move.l TexturePal,a1
  10457.  add.l #256*16,a1
  10458.  move.l dst,d0
  10459.  clr.b d0
  10460.  
  10461.  add.w d0,d0
  10462.  cmp.w #12*512,d0
  10463.  blt.s .notoowater
  10464.  move.w #12*512,d0
  10465.  
  10466. .notoowater:
  10467.   
  10468.  adda.w d0,a1
  10469.  
  10470.  move.l dst,d0
  10471.  asl.w #7,d0
  10472.  add.w wtan,d0
  10473.  and.w #8191,d0
  10474.  move.l #SineTable,a0
  10475.  move.w (a0,d0.w),d0
  10476.  ext.l d0
  10477.  
  10478.  move.l dst,d3
  10479.  add.w #300,d3
  10480.  divs d3,d0
  10481.  asr.w #5,d0
  10482.  addq #4,d0
  10483.  cmp.w disttobot,d0
  10484.  blt.s oknotoffbotototr
  10485.  
  10486.  move.w disttobot,d0
  10487.  subq #1,d0
  10488.  
  10489. oknotoffbotototr
  10490.  
  10491. ; move.w dst,d3
  10492. ; asr.w #7,d3
  10493. ; add.w d3,d0
  10494.  
  10495.  muls #320,d0
  10496.  tst.w above
  10497.  beq.s nonnnnnegr
  10498.  neg.l d0
  10499.  
  10500. nonnnnnegr:
  10501.  
  10502.  move.l d0,a6
  10503.  
  10504.  move.l watertouse,a0
  10505.  
  10506. ; move.l #mixtab,a5
  10507.  
  10508.  moveq #0,d1
  10509.  
  10510.  move.w startsmoothx,d3
  10511.  dbra d7,acrossscrnwr
  10512.  rts
  10513.  
  10514. backbeforewr:
  10515.  and.w d1,d5 
  10516.  move.w (a0,d5.w*4),d0
  10517.  move.b (a3,a6.w),d0
  10518.  move.w (a1,d0.w),(a3)+
  10519.  add.w a4,d3
  10520.  addx.l d6,d5
  10521.  dbcs d7,acrossscrnwr
  10522.  dbcc d7,backbeforewr
  10523.  rts
  10524.  
  10525. acrossscrnwr:
  10526.  move.w d5,d3
  10527.  move.l d5,d6
  10528.  lsr.w #8,d3
  10529.  swap d6
  10530.  move.b d3,d6
  10531.  move.w (a0,d6.w*4),d0
  10532.  add.l d2,d5
  10533.  move.w (a4,a6.w),d1
  10534.  addq #2,a4
  10535.  move.b (a3,a6.w),d1
  10536.  move.b (a5,d1.l),d0
  10537.  and.l d4,d5
  10538.  move.w (a1,d0.w),(a3)+
  10539.  dbra d7,acrossscrnwr
  10540.  rts
  10541.  
  10542. texturedwater:
  10543.  
  10544.  move.l d1,d4
  10545.  
  10546.  add.l wateroff,d5
  10547.  
  10548.  move.l TexturePal,a1
  10549.  add.l #256*16,a1
  10550.  move.l dst,d0
  10551.  asr.l #2,d0
  10552.  clr.b d0
  10553.  
  10554.  add.w d0,d0
  10555.  cmp.w #9*512,d0
  10556.  blt.s .notoowater
  10557.  move.w #9*512,d0
  10558. .notoowater:
  10559.   
  10560.  adda.w d0,a1
  10561.  
  10562.  move.l dst,d0
  10563.  asl.w #7,d0
  10564.  add.w wtan,d0
  10565.  and.w #8191,d0
  10566.  move.l #SineTable,a0
  10567.  move.w (a0,d0.w),d0
  10568.  ext.l d0
  10569.  
  10570.  move.l dst,d3
  10571.  add.w #300,d3
  10572.  divs d3,d0
  10573.  asr.w #5,d0
  10574.  addq #4,d0
  10575.  cmp.w disttobot,d0
  10576.  blt.s oknotoffbototot
  10577.  
  10578.  move.w disttobot,d0
  10579.  subq #1,d0
  10580.  
  10581. oknotoffbototot
  10582.  
  10583. ; move.w dst,d3
  10584. ; asr.w #7,d3
  10585. ; add.w d3,d0
  10586.  
  10587.  tst.b DOUBLEHEIGHT
  10588.  beq.s .nodoub
  10589.  and.b #$fe,d0
  10590. .nodoub:
  10591.  
  10592.  muls #320,d0
  10593.  tst.w above
  10594.  beq.s nonnnnneg
  10595.  neg.l d0
  10596.  
  10597. nonnnnneg:
  10598.  
  10599.  move.l d0,a6
  10600.  
  10601.  move.l watertouse,a0
  10602.  
  10603.  move.w startsmoothx,d3
  10604.  dbra d7,acrossscrnw
  10605.  rts
  10606.  
  10607. backbeforew:
  10608.  and.w d1,d5
  10609.  move.w (a0,d5.w*4),d0
  10610.  add.w d0,d0
  10611.  move.b (a3,a6.w),d0
  10612.  move.b (a1,d0.w),(a3)+
  10613.  add.w a4,d3
  10614.  addx.l d6,d5
  10615.  dbcs d7,acrossscrnw
  10616.  dbcc d7,backbeforew
  10617.  rts
  10618.  
  10619. acrossscrnw:
  10620.  move.w d5,d3
  10621.  move.l d5,d6
  10622.  lsr.w #8,d3
  10623.  swap d6
  10624.  move.b d3,d6
  10625.  move.w (a0,d6.w*4),d0
  10626.  add.w d0,d0
  10627.  add.l d2,d5
  10628.  move.b (a3,a6.w),d0
  10629.  and.l d4,d5
  10630.  move.b (a1,d0.w),(a3)+
  10631.  dbra d7,acrossscrnw
  10632.  rts
  10633.  
  10634.  
  10635. texturedwaterDOUB:
  10636.  
  10637.  move.l d1,d4
  10638.  
  10639.  add.l wateroff,d5
  10640.  
  10641.  move.l TexturePal,a1
  10642.  add.l #256*16,a1
  10643.  move.l dst,d0
  10644.  asr.l #2,d0
  10645.  clr.b d0
  10646.  
  10647.  add.w d0,d0
  10648.  cmp.w #9*512,d0
  10649.  blt.s .notoowater
  10650.  move.w #9*512,d0
  10651. .notoowater:
  10652.   
  10653.  adda.w d0,a1
  10654.  
  10655.  move.l dst,d0
  10656.  asl.w #7,d0
  10657.  add.w wtan,d0
  10658.  and.w #8191,d0
  10659.  move.l #SineTable,a0
  10660.  move.w (a0,d0.w),d0
  10661.  ext.l d0
  10662.  
  10663.  move.l dst,d3
  10664.  add.w #300,d3
  10665.  divs d3,d0
  10666.  asr.w #5,d0
  10667.  addq #4,d0
  10668.  cmp.w disttobot,d0
  10669.  blt.s .oknotoffbototot
  10670.  
  10671.  move.w disttobot,d0
  10672.  subq #1,d0
  10673.  
  10674. .oknotoffbototot
  10675.  
  10676. ; move.w dst,d3
  10677. ; asr.w #7,d3
  10678. ; add.w d3,d0
  10679.  
  10680.  tst.b DOUBLEHEIGHT
  10681.  beq.s .nodoub
  10682.  and.b #$fe,d0
  10683. .nodoub:
  10684.  
  10685.  muls #320,d0
  10686.  tst.w above
  10687.  beq.s .nonnnnneg
  10688.  neg.l d0
  10689.  
  10690. .nonnnnneg:
  10691.  
  10692.  move.l d0,a6
  10693.  
  10694.  move.l watertouse,a0
  10695.  
  10696.  add.l d2,d2
  10697.  
  10698.  move.w startsmoothx,d3
  10699.  dbra d7,acrossscrnwD
  10700.  rts
  10701.  
  10702.  
  10703. acrossscrnwD:
  10704.  move.w d5,d3
  10705.  move.l d5,d6
  10706.  lsr.w #8,d3
  10707.  swap d6
  10708.  move.b d3,d6
  10709.  move.w (a0,d6.w*4),d0
  10710.  add.w d0,d0
  10711.  add.l d2,d5
  10712.  move.b (a3,a6.w),d0
  10713.  and.l d4,d5
  10714.  move.w (a1,d0.w),(a3)+
  10715.  dbra d7,acrossscrnwD
  10716.  rts
  10717.  
  10718.  
  10719. usewater: dc.w 0
  10720.  dc.w 0
  10721. startsmoothx: dc.w 0
  10722.  dc.w 0
  10723. startsmoothz: dc.w 0
  10724.  
  10725. ********************************
  10726. *
  10727.  include "AB3:source_4000/ObjDrawHIRES.s"
  10728. *
  10729. ********************************
  10730.  
  10731. numframes:
  10732.  dc.w 0
  10733.  
  10734. alframe: dc.l 0
  10735.  
  10736. alan:
  10737.  dcb.l 8,0
  10738.  dcb.l 8,1
  10739.  dcb.l 8,2
  10740.  dcb.l 8,3
  10741. endalan:
  10742.  
  10743. alanptr: dc.l alan
  10744.  
  10745. Time2: dc.l 0
  10746. dispco:
  10747.  dc.w 0
  10748.  
  10749.  
  10750. key_readkey:
  10751.  moveq #0,d0
  10752.  move.b lastpressed,d0
  10753.  move.b #0,lastpressed
  10754.  rts
  10755.  
  10756. key_interrupt:
  10757. ;        movem.l    d0-d7/a0-a6,-(sp)
  10758.  
  10759. ;        move.w    INTREQR,d0
  10760. ;        btst    #3,d0
  10761. ;        beq    .not_key
  10762.  
  10763.         move.b    $bfdd00,d0
  10764.         btst    #0,d0
  10765.         bne    .key_cont
  10766. ;        move.b    $bfed01,d0
  10767. ;        btst    #0,d0
  10768. ;        bne    .key_cont
  10769.     
  10770. ;        btst    #3,d0
  10771. ;        beq    .key_cont
  10772.  
  10773.         move.b    $bfec01,d0
  10774.         clr.b    $bfec01
  10775.  
  10776.         tst.b    d0
  10777.         beq    .key_cont
  10778.  
  10779. ;        bset    #6,$bfee01
  10780. ;        move.b    #$f0,$bfe401
  10781. ;        move.b    #$00,$bfe501
  10782. ;        bset    #0,$bfee01
  10783.  
  10784.  
  10785.         not.b    d0
  10786.         ror.b    #1,d0
  10787.         lea.l    KeyMap,a0
  10788.         tst.b    d0
  10789.         bmi.b    .key_up
  10790.         and.w    #$7f,d0
  10791. ;        add.w    #1,d0
  10792.         move.b    #$ff,(a0,d0.w)
  10793.         move.b    d0,lastpressed
  10794.  
  10795.         bra.b    .key_cont2
  10796. .key_up:
  10797.         and.w    #$7f,d0
  10798. ;        add.w    #1,d0
  10799.         move.b    #$00,(a0,d0.w)
  10800.  
  10801. .key_cont2
  10802. ;        btst    #0,$bfed01
  10803. ;        beq    .key_cont2
  10804. ;        move.b    #%00000000,$bfee01
  10805. ;        move.b    #%10001000,$bfed01
  10806.  
  10807. ;alt keys should not be independent so overlay ralt on lalt
  10808.  
  10809.         
  10810. .key_cont
  10811.  
  10812. ;        move.w    #$0008,INTREQ
  10813. .not_key:    ;lea.l    $dff000,a5
  10814.  
  10815. ;        lea.l    _keypressed(pc),a0
  10816. ;        move.b    101(a0),d0    ;read LALT
  10817. ;        or.b    102(a0),d0    ;blend it with RALT
  10818. ;        move.b    d0,127(a0)    ;save in combined position
  10819.  
  10820. ;        movem.l    (sp)+,d0-d7/a0-a6
  10821.         move.w #0,d0
  10822.         tst.w d0
  10823.  
  10824.         rts
  10825.  
  10826. lastpressed:    dc.b 0
  10827. KInt_CCode    Ds.b    1
  10828. KInt_Askey    Ds.b    1
  10829. KInt_OCode    Ds.w    1
  10830.  
  10831.  
  10832. OldSpace: dc.b 0
  10833. SpaceTapped: dc.b 0
  10834. PLR1_SPCTAP: dc.b 0
  10835. PLR2_SPCTAP: dc.b 0
  10836. PLR1_Ducked: dc.b 0
  10837. PLR2_Ducked: dc.b 0
  10838.  even
  10839.  
  10840. PLR1_Squished: dc.w 0
  10841. PLR2_Squished: dc.w 0
  10842. PLR1s_SquishedHeight: dc.l 0
  10843. PLR2s_SquishedHeight: dc.l 0
  10844.  
  10845.  include "ab3:source_4000/PLR1CONTROL.s"
  10846.  include "ab3:source_4000/PLR2CONTROL.s"
  10847.  include "ab3:source_4000/FALL.s"
  10848.  
  10849.  
  10850.  
  10851. *******************************************8
  10852.  
  10853. nullmessage: dcb.b 160,' '
  10854.  
  10855. SENDMESSAGENORET
  10856.  move.l a1,-(a7)
  10857.  bra intosend
  10858.  
  10859. SENDMESSAGE:
  10860.  
  10861.  move.l a1,-(a7)
  10862.  
  10863.  move.l MESSPTR,a1
  10864.  move.l d0,(a1)+
  10865.  cmp.l #ENDMESSBUFF,a1
  10866.  blt.s .okinbuff
  10867.  move.l #MESSAGEBUFFER,a1
  10868. .okinbuff:
  10869.  move.l a1,MESSPTR
  10870.  move.l a1,LASTMESSPTR
  10871.  
  10872. intosend:
  10873.  
  10874.  move.l d0,SCROLLPOINTER
  10875.  move.w #0,SCROLLXPOS
  10876.  add.l #160,d0
  10877.  move.l d0,ENDSCROLL
  10878.  move.w #40,SCROLLTIMER
  10879.  
  10880.  move.l (a7)+,a1
  10881.  rts
  10882.  
  10883. RETRIEVEPREVMESSAGE:
  10884.  
  10885.  move.l LASTMESSPTR,a1
  10886.  cmp.l #MESSAGEBUFFER,a1
  10887.  bgt.s .okinbuff
  10888.  
  10889.  move.l #ENDMESSBUFF,a1
  10890.  
  10891. .okinbuff:
  10892.  
  10893.  move.l -(a1),d0
  10894.  beq.s .nomessage
  10895.  
  10896.  move.l d0,SCROLLPOINTER
  10897.  move.w #0,SCROLLXPOS
  10898.  add.l #160,d0
  10899.  move.l d0,ENDSCROLL
  10900.  move.w #40,SCROLLTIMER
  10901.  
  10902.  move.l a1,LASTMESSPTR
  10903.  
  10904. .nomessage:
  10905.  
  10906.  
  10907.  rts
  10908.  
  10909. MESSAGEBUFFER:
  10910.  ds.l 20
  10911. ENDMESSBUFF:
  10912.  
  10913. MESSPTR: dc.l MESSAGEBUFFER
  10914. LASTMESSPTR: dc.l MESSAGEBUFFER
  10915.  
  10916. **********************************************
  10917.  
  10918.  
  10919.  
  10920. prot7: dc.w 0
  10921.  
  10922. GOTTOSEND: dc.w 0
  10923.  
  10924. COUNTER: dc.w 0
  10925. COUNTER2: dc.w 0
  10926. COUNTSPACE: ds.b 160
  10927.  
  10928. OtherInter:
  10929.  move.w #$0010,$dff000+intreq
  10930.  movem.l d0-d7/a0-a6,-(a7)
  10931.  bra justshake
  10932.  
  10933.     cnop 0,4
  10934.  
  10935. BlitterInterrupt:
  10936.  
  10937.  movem.l d0-d7/a0-a6,-(a7)
  10938.  move.w    #$0040,$dff09c        ; Clear REQ bits
  10939.  
  10940.  move.l main_bltint,d0
  10941.  beq.s .noint
  10942.  move.l d0,a0
  10943.  jsr (a0)
  10944. .noint:
  10945.  movem.l (a7)+,d0-d7/a0-a6
  10946.  
  10947.  rts
  10948.  
  10949. Chan0inter:
  10950.  
  10951.     add.l #1,counter
  10952.     add.l #1,main_counter
  10953.     tst.l timer
  10954.     beq.s .nodec
  10955.     subq.l #1,timer    
  10956. .nodec:
  10957.  
  10958.     SAVEREGS
  10959.     jsr    .routine
  10960.  
  10961.     move.l main_vblint,d0
  10962.     beq.s .noint
  10963.         move.l d0,a0
  10964.         jsr (a0)    
  10965. .noint:
  10966.  
  10967.     GETREGS
  10968. ;    move.w    #1024+'.',$dff030
  10969.     
  10970.     moveq #1,d0
  10971.     rts
  10972.  
  10973. .routine
  10974.  
  10975.     
  10976. ;w move.w #$0010,$dff000+intreq
  10977.  
  10978.  tst.b doanything
  10979.  bne dosomething
  10980.  
  10981.  movem.l d0-d7/a0-a6,-(a7)
  10982.  bra JUSTSOUNDS
  10983.  
  10984.  rts
  10985.  
  10986. tabheld: dc.w 0
  10987. ObjWork: ds.l 600
  10988. WORKPTR: dc.l 0
  10989. thistime: dc.w 0
  10990.  
  10991. DOALLANIMS:
  10992.  
  10993.  sub.b #1,thistime
  10994.  ble.s .okdosome
  10995.  rts
  10996.  
  10997. .okdosome:
  10998.  move.b #5,thistime
  10999.  
  11000.  
  11001.  move.l #ObjWork,a5
  11002.  move.l ObjectData,a0
  11003. Objectloop2:
  11004.  tst.w (a0)
  11005.  blt doneallobj2
  11006.  move.w 12(a0),d0
  11007.  blt doneobj2
  11008.  move.w d0,GraphicRoom(a0)
  11009.  tst.b worry(a0)
  11010.  beq.s doneobj2
  11011.  
  11012.  move.b 16(a0),d0
  11013.  cmp.b #1,d0
  11014.  blt JUMPALIENANIM
  11015. ; beq JUMPOBJECTANIM
  11016. ; cmp.b #2,d0
  11017. ; beq JUMPBULLET
  11018.  
  11019. doneobj2:
  11020.  
  11021.  adda.w #64,a0
  11022.  addq #8,a5
  11023.  bra Objectloop2
  11024.  
  11025. doneallobj2:
  11026.  rts
  11027.  
  11028. JUMPALIENANIM:
  11029.  
  11030.  moveq #0,d0
  11031.  move.b WhichAnim(a0),d0
  11032. ; 0=walking
  11033. ; 1=attacking
  11034. ; 2=getting hit
  11035. ; 3=dying
  11036.  
  11037.  cmp.b #1,d0
  11038.  blt.s ALWALK
  11039.  beq.s ALATTACK
  11040.  
  11041.  cmp.b #3,d0
  11042.  blt ALGETHIT
  11043.  beq ALDIE
  11044.  
  11045.  bra doneobj2
  11046.  
  11047. ALDIE
  11048.  move.l #10,d0
  11049.  bra intowalk
  11050.  
  11051. ALGETHIT:
  11052.  move.l #9,d0
  11053.  bra intowalk
  11054.  
  11055. ALATTACK:
  11056.  move.l #8,d0
  11057.  bra intowalk
  11058.  
  11059. AUXOBJ: dc.w 0
  11060.  
  11061. ALWALK:
  11062.  
  11063. ; jsr ViewpointToDraw
  11064. ; add.l d0,d0
  11065. ; 
  11066. ; move.l LINKFILE,a6
  11067. ; add.l #AlienStats,a6
  11068. ; moveq #0,d1
  11069. ; move.b TypeOfThing(a0),d1
  11070. ; muls #AlienStatLen,d1
  11071. ; add.l d1,a6
  11072. ; cmp.w #1,A_GFXType(a6)
  11073. ; bne.s NOSIDES2
  11074.  
  11075.  moveq #0,d0
  11076. intowalk:
  11077.  
  11078. NOSIDES2:
  11079.  
  11080.  move.b d0,2(a5)
  11081.  move.l LINKFILE,a6
  11082.  
  11083.  add.l #AlienAnimData,a6
  11084.  
  11085.  moveq #0,d1
  11086.  move.b TypeOfThing(a0),d1
  11087.  move.w .valtables+4(pc,d1.w*8),d1
  11088. ; muls #A_AnimLen,d1
  11089.  add.l d1,a6
  11090.  
  11091. ; move.l ANIMPOINTER,a6
  11092.  
  11093. ; muls #A_OptLen,d0
  11094.  move.w .valtables+2(pc,d0.w*8),d0
  11095.  add.w d0,a6
  11096.  
  11097.  move.w SecTimer(a0),d1
  11098.  move.w d1,d2
  11099. ; muls #A_FrameLen,d1
  11100.  move.w .valtables(pc,d1.w*8),d1
  11101.  
  11102.  moveq #0,d0
  11103.  move.b 5(a6,d1.w),d0
  11104.  beq.s .nosoundmake
  11105.  
  11106.  movem.l d0-d7/a0-a6,-(a7)
  11107.  subq #1,d0
  11108.  move.w d0,Samplenum
  11109.  clr.b notifplaying
  11110.  move.w (a0),IDNUM
  11111.  move.w #80,Noisevol
  11112.  move.l #ObjRotated,a1
  11113.  move.w (a0),d0
  11114.  lea (a1,d0.w*8),a1
  11115.  move.l (a1),Noisex
  11116.  jsr MakeSomeNoise
  11117.  movem.l (a7)+,d0-d7/a0-a6
  11118. .nosoundmake
  11119.  
  11120.  move.b 6(a6,d1.w),d0
  11121.  beq.s .noaction
  11122.  add.b #1,(a5)
  11123.  move.b d2,1(a5)
  11124. .noaction
  11125.  
  11126.  addq #1,d2
  11127.  
  11128.  moveq #0,d0
  11129.  move.b 7(a6,d1.w),d0
  11130.  beq .nospecial
  11131.  bra .special
  11132.  
  11133. .valtables:
  11134. val SET 0
  11135.  REPT 20
  11136.  dc.w A_FrameLen*val,A_OptLen*val
  11137.  dc.w A_AnimLen*val,0
  11138. val SET val+1
  11139.  ENDR
  11140.  
  11141. .special
  11142.  move.b d0,d3
  11143.  and.w #63,d3
  11144.  lsr.w #6,d0
  11145.  cmp.w #2,d0
  11146.  blt.s .storeval
  11147.  beq.s .randval
  11148.  
  11149.  sub.b #1,4(a5)
  11150.  beq.s .nospecial
  11151.  
  11152.  move.w d3,d2
  11153.  bra.s .nospecial
  11154.  
  11155. .randval:
  11156.  jsr GetRand
  11157.  divs d3,d0
  11158.  swap d0
  11159.  move.w d0,d3
  11160.  
  11161. .storeval:
  11162.  move.b d3,4(a5)
  11163. .nospecial:
  11164.  
  11165. ; move.w d2,d3
  11166.  move.w .valtables2(pc,d2.w*8),d3
  11167. ; muls #A_FrameLen,d3
  11168.  tst.b (a6,d3.w)
  11169.  bge.s .noendanim
  11170.  st 3(a5)
  11171.  move.w #0,d2
  11172. .noendanim
  11173.  move.w d2,SecTimer(a0)
  11174.  
  11175.  bra doneobj2
  11176.  
  11177. .valtables2:
  11178. val SET 0
  11179.  REPT 20
  11180.  dc.w A_FrameLen*val,A_OptLen*val
  11181.  dc.w A_AnimLen*val,0
  11182. val SET val+1
  11183.  ENDR
  11184.  
  11185.  
  11186. JUMPOBJECTANIM:
  11187.  bra doneobj2
  11188.  
  11189. timetodamage: dc.w 0
  11190. SAVESAVE: dc.w 0
  11191.  
  11192. dosomething:
  11193.  
  11194.  
  11195.  
  11196.  addq.w #1,FramesToDraw
  11197.  movem.l d0-d7/a0-a6,-(a7)
  11198.  
  11199.  jsr NARRATOR
  11200.  
  11201.  bsr DOALLANIMS
  11202.  
  11203.  sub.w #1,timetodamage
  11204.  bgt.s .nodam
  11205.  
  11206.  move.w #100,timetodamage
  11207.  
  11208.  move.l PLR1_Roompt,a0
  11209.  move.w ToFloorNoise(a0),d0
  11210.  tst.b PLR1_StoodInTop
  11211.  beq.s .okinbot
  11212.  move.w ToUpperFloorNoise(a0),d0
  11213. .okinbot:
  11214.  
  11215.  move.l LINKFILE,a0
  11216.  add.l #FloorData,a0
  11217.  move.w (a0,d0.w*4),d0    ; damage. 
  11218.  move.l PLR1_Obj,a0
  11219.  add.b d0,damagetaken(a0)
  11220.  
  11221.  move.l PLR2_Roompt,a0
  11222.  move.w ToFloorNoise(a0),d0
  11223.  tst.b PLR2_StoodInTop
  11224.  beq.s .okinbot2
  11225.  move.w ToUpperFloorNoise(a0),d0
  11226. .okinbot2:
  11227.  
  11228.  move.l LINKFILE,a0
  11229.  add.l #FloorData,a0
  11230.  move.w (a0,d0.w*4),d0    ; damage. 
  11231.  
  11232.  move.l PLR2_Obj,a0
  11233.  add.b d0,damagetaken(a0)
  11234.  
  11235. .nodam:
  11236.  
  11237.  move.l #KeyMap,a5
  11238.  
  11239.  tst.b 82(a5)    ;f3
  11240.  beq notogglesound
  11241.  
  11242.  tst.b lasttogsound
  11243.  bne notogglesound2
  11244.  
  11245.  st lasttogsound
  11246.  
  11247.  move.w TOPPOPT,d0
  11248.  addq #1,d0
  11249.  and.w #3,d0
  11250.  move.w d0,TOPPOPT
  11251.  move.b STEROPT(pc,d0.w*2),STEREO
  11252.  
  11253.  
  11254.  move.b STEROPT+1(pc,d0.w*2),d1
  11255.  muls #160,d0
  11256.  add.l #SOUNDOPTSTEXT,d0
  11257.  jsr SENDMESSAGE
  11258.  
  11259.  
  11260.  move.b d1,Prefsfile+1
  11261.  
  11262.  bra pastster
  11263.  
  11264.  STEROPT:
  11265.  dc.b 0,4
  11266.  dc.b $FF,4
  11267.  dc.b 0,8
  11268.  dc.b $ff,8
  11269.  
  11270. lasttogsound: dc.w 0
  11271.  
  11272. SOUNDOPTSTEXT:
  11273. ;      1234567890123456789012345678901234567890
  11274.  dc.b "Four Channel Mono Selected              "
  11275.  dc.b "                                        "
  11276.  dc.b "                                        "
  11277.  dc.b "                                        "
  11278.  
  11279.  dc.b "Four Channel Stereo Selected            "
  11280.  dc.b "                                        "
  11281.  dc.b "                                        "
  11282.  dc.b "                                        "
  11283.  
  11284.  dc.b "Eight Channel Mono Selected             "
  11285.  dc.b "                                        "
  11286.  dc.b "                                        "
  11287.  dc.b "                                        "
  11288.  
  11289.  dc.b "Eight Channel Stereo Selected           "
  11290.  dc.b "                                        "
  11291.  dc.b "                                        "
  11292.  dc.b "                                        "
  11293.  
  11294. LIGHTING: dc.w $FFff
  11295. OLDLTOG: dc.w 0
  11296.  
  11297. pastster:
  11298.  
  11299.  cmp.b #'4',d1
  11300.  seq.s CHANNELDATA+8
  11301.  seq.s CHANNELDATA+12
  11302.  seq.s CHANNELDATA+24
  11303.  seq.s CHANNELDATA+28
  11304.  
  11305. * Mt_init *********************
  11306.  st CHANNELDATA+8
  11307.  st CHANNELDATA
  11308. *******************************
  11309.  
  11310.  move.w #$f,$dff000+dmacon
  11311.  move.l #null,$dff0a0
  11312.  move.w #100,$dff0a4
  11313.  move.w #443,$dff0a6
  11314.  move.w #63,$dff0a8
  11315.  
  11316.  move.l #null2,$dff0b0
  11317.  move.w #100,$dff0b4
  11318.  move.w #443,$dff0b6
  11319.  move.w #63,$dff0b8
  11320.  
  11321.  move.l #null4,$dff0c0
  11322.  move.w #100,$dff0c4
  11323.  move.w #443,$dff0c6
  11324.  move.w #63,$dff0c8
  11325.  
  11326.  move.l #null3,$dff0d0
  11327.  move.w #100,$dff0d4
  11328.  move.w #443,$dff0d6
  11329.  move.w #63,$dff0d8
  11330.  
  11331.  move.l #empty,pos0LEFT
  11332.  move.l #empty,pos1LEFT
  11333.  move.l #empty,pos2LEFT
  11334.  move.l #empty,pos3LEFT
  11335.  move.l #empty,pos0RIGHT
  11336.  move.l #empty,pos1RIGHT
  11337.  move.l #empty,pos2RIGHT
  11338.  move.l #empty,pos3RIGHT
  11339.  move.l #emptyend,Samp0endLEFT
  11340.  move.l #emptyend,Samp1endLEFT
  11341.  move.l #emptyend,Samp2endLEFT
  11342.  move.l #emptyend,Samp3endLEFT
  11343.  move.l #emptyend,Samp0endRIGHT
  11344.  move.l #emptyend,Samp1endRIGHT
  11345.  move.l #emptyend,Samp2endRIGHT
  11346.  move.l #emptyend,Samp3endRIGHT
  11347.  
  11348.  move.w #10,d3
  11349. .willy
  11350.  btst #0,$dff000+intreqrl
  11351.  beq.s .willy
  11352.  move.w #1,$dff000+intreq
  11353.  
  11354.  dbra d3,.willy
  11355.  
  11356.  move.w #$820f,$dff000+dmacon
  11357.  
  11358.  bra notogglesound2
  11359.  
  11360. Prefsfile:
  11361.  dc.b 'k4nx'
  11362.  
  11363. notogglesound:
  11364.  clr.b lasttogsound
  11365. notogglesound2:
  11366.  
  11367.  
  11368.  tst.b 83(a5)
  11369.  beq nolighttoggle
  11370.  tst.b OLDLTOG
  11371.  bne nolighttoggle2
  11372.  st OLDLTOG
  11373.  
  11374.  move.l #LIGHTINGTEXT,d0
  11375.  not.b LIGHTING
  11376.  beq.s .noon
  11377.  add.l #160,d0
  11378. .noon:
  11379.  bra pastlighttext
  11380.  
  11381. LIGHTINGTEXT:
  11382.  dc.b "Lighting Effects Deactivated            "
  11383.  dc.b "                                        "
  11384.  dc.b "                                        "
  11385.  dc.b "                                        "
  11386.  
  11387.  dc.b "Lighting Effects Activated              "
  11388.  dc.b "                                        "
  11389.  dc.b "                                        "
  11390.  dc.b "                                        "
  11391.  
  11392. OLDRET: dc.w 0
  11393. OLDCENT: dc.w 0
  11394. OLDGOOD: dc.w 0
  11395.  
  11396. GOODRENDERTXT:
  11397.  dc.b "Rendering Quality : High                "
  11398.  dc.b "                                        "
  11399.  dc.b "                                        "
  11400.  dc.b "                                        "
  11401. BADRENDERTXT:
  11402.  dc.b "Rendering Quality : Reduced             "
  11403.  dc.b "                                        "
  11404.  dc.b "                                        "
  11405.  dc.b "                                        "
  11406.  
  11407. pastlighttext:
  11408.  
  11409.  jsr SENDMESSAGE
  11410.  
  11411. ; move.l d0,SCROLLPOINTER
  11412. ; move.w #0,SCROLLXPOS
  11413. ; add.l #160,d0
  11414. ; move.l d0,ENDSCROLL
  11415. ; move.w #40,SCROLLTIMER 
  11416.  
  11417.  bra nolighttoggle2
  11418.  
  11419. nolighttoggle:
  11420.  clr.b OLDLTOG
  11421. nolighttoggle2:
  11422.  
  11423.  
  11424.  tst.b 84(a5)
  11425.  beq.s noret
  11426.  tst.b OLDRET
  11427.  bne.s noret2
  11428.  st OLDRET
  11429.  
  11430.  jsr RETRIEVEPREVMESSAGE
  11431.  
  11432.  bra noret2
  11433.  
  11434. noret
  11435.  clr.b OLDRET
  11436. noret2:
  11437.  
  11438.  tst.b 85(a5)
  11439.  beq.s .nogood
  11440.  tst.b OLDGOOD
  11441.  bne.s .nogood2
  11442.  st OLDGOOD
  11443.  
  11444.  move.l #GOODRENDERTXT,d0
  11445.  not.b GOODRENDER
  11446.  bne.s .okgood
  11447.  move.l #BADRENDERTXT,d0
  11448. .okgood:
  11449.  
  11450.  jsr SENDMESSAGE
  11451.  
  11452.  bra .nogood2
  11453.  
  11454. .nogood
  11455.  clr.b OLDGOOD
  11456. .nogood2:
  11457.  
  11458.  
  11459.  tst.b $42(a5)
  11460.  bne.s .tabprsd
  11461.  clr.b tabheld
  11462.  bra.s .noswitch
  11463.  
  11464. .tabprsd:
  11465.  tst.b tabheld
  11466.  bne.s .noswitch
  11467.  not.b MAPON
  11468.  st tabheld
  11469. .noswitch
  11470.  
  11471.  tst.b $3e(a5)
  11472.  sne d0
  11473.  tst.b $1e(a5)
  11474.  sne d1
  11475.  tst.b $2d(a5)
  11476.  sne d2
  11477.  tst.b $2f(a5)
  11478.  sne d3
  11479.  
  11480.  tst.b $3d(a5)
  11481.  sne d4
  11482.  tst.b $3f(a5)
  11483.  sne d5
  11484.  tst.b $1d(a5)
  11485.  sne d6
  11486.  tst.b $1f(a5)
  11487.  sne d7
  11488.  
  11489.  or.b d4,d0
  11490.  or.b d5,d0
  11491.  or.b d6,d1
  11492.  or.b d7,d1
  11493.  or.b d4,d2
  11494.  or.b d6,d2
  11495.  or.b d7,d3
  11496.  or.b d5,d3
  11497.  
  11498.  move.w MAPBRIGHT,d4
  11499.  add.w #2,d4
  11500.  clr.l d5
  11501.  bset d4,d5
  11502.  
  11503.  tst.b d0
  11504.  beq.s .nomapup
  11505.  sub.w d5,mapzoff
  11506. .nomapup 
  11507.  
  11508.  tst.b d1
  11509.  beq.s .nomapdown
  11510.  add.w d5,mapzoff
  11511. .nomapdown 
  11512.  
  11513.  tst.b d2
  11514.  beq.s .nomapleft
  11515.  add.w d5,mapxoff
  11516. .nomapleft 
  11517.  
  11518.  tst.b d3
  11519.  beq.s .nomapright
  11520.  sub.w d5,mapxoff
  11521. .nomapright 
  11522.  
  11523.  tst.b $2e(a5)
  11524.  beq.s .nomapcentre
  11525.  
  11526.  move.w #0,mapxoff
  11527.  move.w #0,mapzoff
  11528.  
  11529. .nomapcentre
  11530.  
  11531. ; move.w STOPOFFSET,d0
  11532. ; tst.b 27(a5)
  11533. ; beq.s .nolookup
  11534. ; sub.w #5,d0
  11535. ; cmp.w #-80,d0
  11536. ; bgt.s .nolookup
  11537. ; move.w #-80,d0
  11538. ;.nolookup:
  11539. ; tst.b 42(a5)
  11540. ; beq.s .nolookdown
  11541. ; add.w #5,d0
  11542. ; cmp.w #80,d0
  11543. ; blt.s .nolookdown
  11544. ; move.w #80,d0
  11545. ;.nolookdown:
  11546. ;
  11547. ; move.w d0,STOPOFFSET
  11548. ; neg.w d0
  11549. ; add.w #120,d0
  11550. ; move.w d0,SMIDDLEY
  11551. ; muls #320*2,d0
  11552. ; move.l d0,SBIGMIDDLEY
  11553.  
  11554.  
  11555. ; jsr INITREC
  11556. ; jsr RECEIVE
  11557.  
  11558. ; tst.l BUFFER
  11559. ; beq.s justshake
  11560. ; st GOTTOSEND
  11561. ; move.l #OtherInter,$6c
  11562.  
  11563. justshake:
  11564.  
  11565. ; cmp.b #'b',Prefsfile+3
  11566. ; bne.s .noback
  11567.  
  11568.  
  11569.  jsr mt_music
  11570.  
  11571.  
  11572.  
  11573. ;.noback:
  11574.  
  11575.  bra dontshowtime
  11576.  
  11577.  tst.b oktodisplay
  11578.  beq dontshowtime
  11579.  clr.b oktodisplay
  11580.  subq.w #1,dispco
  11581.  bgt dontshowtime
  11582.  move.w #10,dispco
  11583.  
  11584.  move.l #TimerScr+10,a0
  11585.  move.l TimeCount,d0
  11586.  bge.s timenotneg
  11587.  move.l #1111*256,d0
  11588. timenotneg:
  11589.  asr.l #8,d0
  11590.  move.l #digits,a1
  11591.  move.w #7,d2
  11592. digitlop
  11593.  divs #10,d0
  11594.  swap d0
  11595.  lea (a1,d0.w*8),a2
  11596.  move.b (a2)+,(a0)
  11597.  move.b (a2)+,24(a0)
  11598.  move.b (a2)+,24*2(a0)
  11599.  move.b (a2)+,24*3(a0)
  11600.  move.b (a2)+,24*4(a0)
  11601.  move.b (a2)+,24*5(a0)
  11602.  move.b (a2)+,24*6(a0)
  11603.  move.b (a2)+,24*7(a0)
  11604.  subq #1,a0
  11605.  swap d0
  11606.  ext.l d0
  11607.  dbra d2,digitlop
  11608.  
  11609.  move.l #TimerScr+10+24*10,a0
  11610.  move.l NumTimes,d0
  11611.  move.l #digits,a1
  11612.  move.w #3,d2
  11613. digitlop2
  11614.  divs #10,d0
  11615.  swap d0
  11616.  lea (a1,d0.w*8),a2
  11617.  move.b (a2)+,(a0)
  11618.  move.b (a2)+,24(a0)
  11619.  move.b (a2)+,24*2(a0)
  11620.  move.b (a2)+,24*3(a0)
  11621.  move.b (a2)+,24*4(a0)
  11622.  move.b (a2)+,24*5(a0)
  11623.  move.b (a2)+,24*6(a0)
  11624.  move.b (a2)+,24*7(a0)
  11625.  subq #1,a0
  11626.  swap d0
  11627.  ext.l d0
  11628.  dbra d2,digitlop2
  11629.  
  11630.  move.l #TimerScr+10+24*20,a0
  11631.  moveq #0,d0
  11632.  move.w FramesToDraw,d0
  11633.  move.l #digits,a1
  11634.  move.w #2,d2
  11635. digitlop3
  11636.  divs #10,d0
  11637.  swap d0
  11638.  lea (a1,d0.w*8),a2
  11639.  move.b (a2)+,(a0)
  11640.  move.b (a2)+,24(a0)
  11641.  move.b (a2)+,24*2(a0)
  11642.  move.b (a2)+,24*3(a0)
  11643.  move.b (a2)+,24*4(a0)
  11644.  move.b (a2)+,24*5(a0)
  11645.  move.b (a2)+,24*6(a0)
  11646.  move.b (a2)+,24*7(a0)
  11647.  subq #1,a0
  11648.  swap d0
  11649.  ext.l d0
  11650.  dbra d2,digitlop3
  11651.  
  11652. dontshowtime:
  11653.  
  11654.  
  11655.  move.l alanptr,a0
  11656.  move.l (a0)+,alframe
  11657.  cmp.l #endalan,a0
  11658.  blt.s nostartalan
  11659.  move.l #alan,a0
  11660. nostartalan:
  11661.  move.l a0,alanptr
  11662.  
  11663.  
  11664.  tst.b READCONTROLS
  11665.  beq nocontrols
  11666.  
  11667.  cmp.b #'s',mors
  11668.  beq control2
  11669.  
  11670.  tst.w PLAYERONEHEALTH
  11671.  bgt .propercontrol
  11672.  
  11673.  move.l #7*2116,hitcol
  11674.  move.l PLR1_Obj,a0
  11675.  move.w #-1,12+128(a0)
  11676.  
  11677.  clr.b PLR1_fire
  11678.  clr.b PLR1_clicked
  11679.  move.w #0,ADDTOBOBBLE
  11680.  move.l #playercrouched,PLR1s_height
  11681.  move.w #-80,d0
  11682.  move.w d0,STOPOFFSET
  11683.  neg.w d0
  11684.  add.w TOTHEMIDDLE,d0
  11685.  move.w d0,SMIDDLEY
  11686.  muls #320,d0
  11687.  move.l d0,SBIGMIDDLEY
  11688.  jsr PLR1_fall
  11689.  
  11690.  move.l PLR1s_xspdval,d6
  11691.  move.l PLR1s_zspdval,d7
  11692.  
  11693.  tst.b SLOWDOWN
  11694.  beq.s .nofriction
  11695.  
  11696.  neg.l d6
  11697.  ble.s .nobug1
  11698.  asr.l #3,d6
  11699.  add.l #1,d6
  11700.  bra.s .bug1
  11701. .nobug1
  11702.  asr.l #3,d6
  11703. .bug1:
  11704.  
  11705.  neg.l d7
  11706.  ble.s .nobug2
  11707.  asr.l #3,d7
  11708.  add.l #1,d7
  11709.  bra.s .bug2
  11710. .nobug2
  11711.  asr.l #3,d7
  11712. .bug2: 
  11713.  
  11714.  add.l d6,PLR1s_xspdval
  11715.  add.l d7,PLR1s_zspdval
  11716.  
  11717. .nofriction:
  11718.  move.l PLR1s_xspdval,d6
  11719.  move.l PLR1s_zspdval,d7
  11720.  add.l d6,PLR1s_xoff
  11721.  add.l d7,PLR1s_zoff
  11722.  
  11723.  move.w PLR1s_angspd,d3
  11724.  tst.b SLOWDOWN
  11725.  beq.s .nofric
  11726.  asr.w #2,d3
  11727.  bge.s .nneg
  11728.  addq #1,d3
  11729. .nneg:
  11730. .nofric:
  11731.  
  11732.  move.w d3,PLR1s_angspd
  11733.  add.w d3,PLR1s_angpos
  11734.  add.w d3,PLR1s_angpos
  11735.  and.w #8190,PLR1s_angpos
  11736.  
  11737.  bra nocontrols
  11738.  
  11739. .propercontrol:
  11740.  
  11741.  tst.b PLR1MOUSE
  11742.  beq.s PLR1_nomouse
  11743.  bsr PLR1_mouse_control
  11744. PLR1_nomouse:
  11745.  tst.b PLR1KEYS
  11746.  beq.s PLR1_nokeys
  11747.  bsr PLR1_keyboard_control
  11748. PLR1_nokeys:
  11749. ; tst.b PLR1PATH
  11750. ; beq.s PLR1_nopath
  11751. ; bsr PLR1_follow_path
  11752. ;PLR1_nopath:
  11753.  tst.b PLR1JOY
  11754.  beq.s PLR1_nojoy
  11755.  bsr PLR1_JoyStick_control
  11756. PLR1_nojoy: 
  11757.  bra nocontrols
  11758.  
  11759. control2:
  11760.  
  11761.  tst.w PLAYERTWOHEALTH
  11762.  bgt .propercontrol
  11763.  
  11764.  move.l #7*2116,hitcol
  11765.  move.l PLR1_Obj,a0
  11766.  move.w #-1,12+128(a0)
  11767.  clr.b PLR2_fire
  11768.  move.w #0,ADDTOBOBBLE
  11769.  move.l #playercrouched,PLR2s_height
  11770.  move.w #-80,d0
  11771.  move.w d0,STOPOFFSET
  11772.  neg.w d0
  11773.  add.w TOTHEMIDDLE,d0
  11774.  move.w d0,SMIDDLEY
  11775.  muls #320,d0
  11776.  move.l d0,SBIGMIDDLEY
  11777.  jsr PLR2_fall
  11778.  
  11779.  move.l PLR2s_xspdval,d6
  11780.  move.l PLR2s_zspdval,d7
  11781.  
  11782.  tst.b SLOWDOWN
  11783.  beq.s .nofriction
  11784.  
  11785.  neg.l d6
  11786.  ble.s .nobug1
  11787.  asr.l #3,d6
  11788.  add.l #1,d6
  11789.  bra.s .bug1
  11790. .nobug1
  11791.  asr.l #3,d6
  11792. .bug1:
  11793.  
  11794.  neg.l d7
  11795.  ble.s .nobug2
  11796.  asr.l #3,d7
  11797.  add.l #1,d7
  11798.  bra.s .bug2
  11799. .nobug2
  11800.  asr.l #3,d7
  11801. .bug2: 
  11802.  
  11803.  add.l d6,PLR2s_xspdval
  11804.  add.l d7,PLR2s_zspdval
  11805.  
  11806. .nofriction:
  11807.  move.l PLR2s_xspdval,d6
  11808.  move.l PLR2s_zspdval,d7
  11809.  add.l d6,PLR2s_xoff
  11810.  add.l d7,PLR2s_zoff
  11811.  
  11812.  move.w PLR2s_angspd,d3
  11813.  tst.b SLOWDOWN
  11814.  beq.s .nofric
  11815.  asr.w #2,d3
  11816.  bge.s .nneg
  11817.  addq #1,d3
  11818. .nneg:
  11819. .nofric:
  11820.  
  11821.  move.w d3,PLR2s_angspd
  11822.  add.w d3,PLR2s_angpos
  11823.  add.w d3,PLR2s_angpos
  11824.  and.w #8190,PLR2s_angpos
  11825.  
  11826.  bra.s nocontrols
  11827.  
  11828. .propercontrol:
  11829.  tst.b PLR2MOUSE
  11830.  beq.s PLR2_nomouse
  11831.  bsr PLR2_mouse_control
  11832. PLR2_nomouse:
  11833.  tst.b PLR2KEYS
  11834.  beq.s PLR2_nokeys
  11835.  bsr PLR2_keyboard_control
  11836. PLR2_nokeys:
  11837. ; tst.b PLR2PATH
  11838. ; beq.s PLR2_nopath
  11839. ; bsr PLR1_follow_path
  11840. ;PLR2_nopath:
  11841.  tst.b PLR2JOY
  11842.  beq.s PLR2_nojoy
  11843.  bsr PLR2_JoyStick_control
  11844. PLR2_nojoy: 
  11845.  
  11846.  
  11847. nocontrols:
  11848.  
  11849.  move.l #$dff000,a6
  11850.  
  11851.  tst.b dosounds
  11852.  beq.s nomuckabout
  11853.  
  11854.  cmp.b #'4',Prefsfile+1
  11855.  bne.s nomuckabout
  11856.  
  11857.  move.w #$0,d0 
  11858.  tst.b NoiseMade0LEFT
  11859.  beq.s noturnoff0
  11860.  move.w #1,d0
  11861. noturnoff0:
  11862.  tst.b NoiseMade0RIGHT
  11863.  beq.s noturnoff1
  11864.  or.w #2,d0
  11865. noturnoff1:
  11866.  tst.b NoiseMade1RIGHT
  11867.  beq.s noturnoff2
  11868.  or.w #4,d0
  11869. noturnoff2:
  11870.  tst.b NoiseMade1LEFT
  11871.  beq.s noturnoff3
  11872.  or.w #8,d0
  11873. noturnoff3:
  11874.  
  11875. *********************
  11876.  and.w #$fffe,d0
  11877. *********************
  11878.  
  11879.     move.w d0,dmacon(a6)
  11880.  
  11881. nomuckabout:
  11882.  
  11883.  
  11884. ; tst.b PLR2_fire
  11885. ; beq.s firenotpressed2
  11886. ; fire was pressed last time.
  11887. ; btst #7,$bfe001
  11888. ; bne.s firenownotpressed2
  11889. ; fire is still pressed this time.
  11890. ; st PLR2_fire
  11891. ; bra dointer
  11892.  
  11893. firenownotpressed2:
  11894. ; fire has been released.
  11895. ; clr.b PLR2_fire
  11896. ; bra dointer
  11897.  
  11898. firenotpressed2
  11899.  
  11900. ; fire was not pressed last frame...
  11901.  
  11902. ; btst #7,$bfe001
  11903. ; if it has still not been pressed, go back above
  11904. ; bne.s firenownotpressed2
  11905. ; fire was not pressed last time, and was this time, so has
  11906. ; been clicked.
  11907. ; st PLR2_clicked
  11908. ; st PLR2_fire
  11909.  
  11910. dointer
  11911.  
  11912. JUSTSOUNDS:
  11913.  
  11914.  tst.b dosounds
  11915.  beq.s .notthing
  11916.  
  11917.  cmp.b #'4',Prefsfile+1
  11918.     beq fourchannel
  11919.  
  11920.  btst #1,$dff000+intreqr
  11921.     bne.s newsampbitl
  11922.  
  11923. .notthing:
  11924.  
  11925. ; move.w #$f,$dff000+dmacon
  11926.  
  11927.  movem.l (a7)+,d0-d7/a0-a6
  11928.  
  11929.  moveq #0,d0
  11930.  rts
  11931.  
  11932.  
  11933. dosounds: dc.w 0
  11934.  
  11935. swappedem: dc.w 0
  11936.  
  11937. newsampbitl:
  11938.  
  11939.  
  11940.  
  11941.  move.w #$200,$dff000+intreq
  11942.  
  11943.  tst.b CHANNELDATA
  11944.  bne nochannel0
  11945.  
  11946.  move.l pos0LEFT,a0
  11947.  move.l pos2LEFT,a1
  11948.  
  11949.  move.l #tab,a2
  11950.  
  11951.  moveq #0,d0
  11952.  moveq #0,d1
  11953.  move.b vol0left,d0
  11954.  move.b vol2left,d1
  11955.  cmp.b d1,d0
  11956.  slt swappedem
  11957.  bge.s fbig0
  11958.  
  11959. ; d1 is bigger so scale d0 and use d1
  11960. ; as audiochannel volume.
  11961.  
  11962.  exg a0,a1
  11963.  asl.w #6,d0
  11964.  divs d1,d0
  11965.  lsl.w #8,d0
  11966.  adda.w d0,a2
  11967.  move.w d1,$dff0a8
  11968.  bra.s donechan0
  11969.  
  11970. fbig0:
  11971.  tst.w d0
  11972.  beq.s donechan0
  11973.  asl.w #6,d1
  11974.  divs d0,d1
  11975.  lsl.w #8,d1
  11976.  adda.w d1,a2
  11977.  move.w d0,$dff0a8
  11978.  
  11979. donechan0:
  11980.  
  11981.  move.l Aupt0,a3
  11982.  move.l a3,$dff0a0
  11983.  move.l Auback0,Aupt0
  11984.  move.l a3,Auback0
  11985.  
  11986.  move.l Auback0,a3
  11987.  
  11988.  moveq #0,d0
  11989.  moveq #0,d1
  11990.  moveq #0,d2
  11991.  moveq #0,d3
  11992.  moveq #0,d4
  11993.  moveq #0,d5
  11994.  move.w #49,d7
  11995. loop:
  11996.  move.l (a0)+,d0
  11997.  move.b (a1)+,d1
  11998.  move.b (a1)+,d2
  11999.  move.b (a1)+,d3
  12000.  move.b (a1)+,d4
  12001.  move.b (a2,d3.w),d5
  12002.  swap d5
  12003.  move.b (a2,d1.w),d5
  12004.  asl.l #8,d5
  12005.  move.b (a2,d2.w),d5
  12006.  swap d5
  12007.  move.b (a2,d4.w),d5
  12008.  add.l d5,d0
  12009.  move.l d0,(a3)+
  12010.  dbra d7,loop
  12011.  
  12012.  tst.b swappedem
  12013.  beq.s .ok23
  12014.  exg a0,a1
  12015. .ok23:
  12016.  
  12017.  cmp.l Samp0endLEFT,a0
  12018.  blt.s .notoffendsamp1
  12019.  move.l #empty,a0
  12020.  move.l #emptyend,Samp0endLEFT
  12021.  move.b #0,vol0left
  12022.  clr.w LEFTCHANDATA+32
  12023.  move.w #0,LEFTCHANDATA+2
  12024. .notoffendsamp1:
  12025.  
  12026.  cmp.l Samp2endLEFT,a1
  12027.  blt.s .notoffendsamp2
  12028.  move.l #empty,a1
  12029.  move.l #emptyend,Samp2endLEFT
  12030.  move.b #0,vol2left
  12031.  clr.w LEFTCHANDATA+32+8
  12032.  move.w #0,LEFTCHANDATA+2+8
  12033. .notoffendsamp2:
  12034.  
  12035.  move.l a0,pos0LEFT
  12036.  move.l a1,pos2LEFT
  12037.  
  12038. nochannel0:
  12039.  
  12040.  tst.b CHANNELDATA+16
  12041.  bne nochannel1
  12042.  
  12043.  
  12044.  move.l pos0RIGHT,a0
  12045.  move.l pos2RIGHT,a1
  12046.  
  12047.  move.l Aupt1,a3
  12048.  move.l a3,$dff0b0
  12049.  move.l Auback1,Aupt1
  12050.  move.l a3,Auback1
  12051.  
  12052.  move.l #tab,a2
  12053.  
  12054.  moveq #0,d0
  12055.  moveq #0,d1
  12056.  move.b vol0right,d0
  12057.  move.b vol2right,d1
  12058.  cmp.b d1,d0
  12059.  slt swappedem
  12060.  bge.s fbig1
  12061.  
  12062. ; d1 is bigger so scale d0 and use d1
  12063. ; as audiochannel volume.
  12064.  
  12065.  exg a0,a1
  12066.  asl.w #6,d0
  12067.  divs d1,d0
  12068.  lsl.w #8,d0
  12069.  adda.w d0,a2
  12070.  move.w d1,$dff0b8
  12071.  bra.s donechan1
  12072.  
  12073. fbig1:
  12074.  tst.w d0
  12075.  beq.s donechan1
  12076.  asl.w #6,d1
  12077.  divs d0,d1
  12078.  lsl.w #8,d1
  12079.  adda.w d1,a2
  12080.  move.w d0,$dff0b8
  12081.  
  12082. donechan1:
  12083.  moveq #0,d0
  12084.  moveq #0,d1
  12085.  moveq #0,d2
  12086.  moveq #0,d3
  12087.  moveq #0,d4
  12088.  moveq #0,d5
  12089.  move.w #49,d7
  12090. loop2:
  12091.  move.l (a0)+,d0
  12092.  move.b (a1)+,d1
  12093.  move.b (a1)+,d2
  12094.  move.b (a1)+,d3
  12095.  move.b (a1)+,d4
  12096.  move.b (a2,d3.w),d5
  12097.  swap d5
  12098.  move.b (a2,d1.w),d5
  12099.  asl.l #8,d5
  12100.  move.b (a2,d2.w),d5
  12101.  swap d5
  12102.  move.b (a2,d4.w),d5
  12103.  add.l d5,d0
  12104.  move.l d0,(a3)+
  12105.  dbra d7,loop2
  12106.  
  12107.  tst.b swappedem
  12108.  beq.s ok01
  12109.  exg a0,a1
  12110. ok01:
  12111.  
  12112.  cmp.l Samp0endRIGHT,a0
  12113.  blt.s .notoffendsamp1
  12114.  move.l #empty,a0
  12115.  move.l #emptyend,Samp0endRIGHT
  12116.  move.b #0,vol0right
  12117.  clr.w RIGHTCHANDATA+32
  12118.  move.w #0,RIGHTCHANDATA+2
  12119. .notoffendsamp1:
  12120.  
  12121.  cmp.l Samp2endRIGHT,a1
  12122.  blt.s .notoffendsamp2
  12123.  move.l #empty,a1
  12124.  move.l #emptyend,Samp2endRIGHT
  12125.  move.b #0,vol2right
  12126.  clr.w RIGHTCHANDATA+32+8
  12127.  move.w #0,RIGHTCHANDATA+2+8
  12128. .notoffendsamp2:
  12129.  
  12130.  move.l a0,pos0RIGHT
  12131.  move.l a1,pos2RIGHT
  12132.  
  12133. nochannel1:
  12134.  
  12135. ******************* Other two channels
  12136.  
  12137.  move.l pos1LEFT,a0
  12138.  move.l pos3LEFT,a1
  12139.  
  12140.  move.l #tab,a2
  12141.  
  12142.  moveq #0,d0
  12143.  moveq #0,d1
  12144.  move.b vol1left,d0
  12145.  move.b vol3left,d1
  12146.  cmp.b d1,d0
  12147.  slt swappedem
  12148.  bge.s fbig2
  12149.  
  12150. ; d1 is bigger so scale d0 and use d1
  12151. ; as audiochannel volume.
  12152.  
  12153.  exg a0,a1
  12154.  asl.w #6,d0
  12155.  divs d1,d0
  12156.  lsl.w #8,d0
  12157.  adda.w d0,a2
  12158.  move.w d1,$dff0d8
  12159.  bra.s donechan2
  12160.  
  12161. fbig2:
  12162.  tst.w d0
  12163.  beq.s donechan2
  12164.  asl.w #6,d1
  12165.  divs d0,d1
  12166.  lsl.w #8,d1
  12167.  adda.w d1,a2
  12168.  move.w d0,$dff0d8
  12169.  
  12170. donechan2:
  12171.  
  12172.  move.l Aupt2,a3
  12173.  move.l a3,$dff0d0
  12174.  move.l Auback2,Aupt2
  12175.  move.l a3,Auback2
  12176.  
  12177.  moveq #0,d0
  12178.  moveq #0,d1
  12179.  moveq #0,d2
  12180.  moveq #0,d3
  12181.  moveq #0,d4
  12182.  moveq #0,d5
  12183.  move.w #49,d7
  12184. loop3:
  12185.  move.l (a0)+,d0
  12186.  move.b (a1)+,d1
  12187.  move.b (a1)+,d2
  12188.  move.b (a1)+,d3
  12189.  move.b (a1)+,d4
  12190.  move.b (a2,d3.w),d5
  12191.  swap d5
  12192.  move.b (a2,d1.w),d5
  12193.  asl.l #8,d5
  12194.  move.b (a2,d2.w),d5
  12195.  swap d5
  12196.  move.b (a2,d4.w),d5
  12197.  add.l d5,d0
  12198.  move.l d0,(a3)+
  12199.  dbra d7,loop3
  12200.  
  12201.  tst.b swappedem
  12202.  beq.s .ok23
  12203.  exg a0,a1
  12204. .ok23:
  12205.  
  12206.  cmp.l Samp1endLEFT,a0
  12207.  blt.s .notoffendsamp3
  12208.  move.l #empty,a0
  12209.  move.l #emptyend,Samp1endLEFT
  12210.  move.b #0,vol1left
  12211.  clr.w LEFTCHANDATA+32+4
  12212.  move.w #0,LEFTCHANDATA+2+4
  12213. .notoffendsamp3:
  12214.  
  12215.  cmp.l Samp3endLEFT,a1
  12216.  blt.s .notoffendsamp4
  12217.  move.l #empty,a1
  12218.  move.l #emptyend,Samp3endLEFT
  12219.  move.b #0,vol3left
  12220.  clr.w LEFTCHANDATA+32+12
  12221.  move.w #0,LEFTCHANDATA+2+12
  12222. .notoffendsamp4:
  12223.  
  12224.  move.l a0,pos1LEFT
  12225.  move.l a1,pos3LEFT
  12226.  
  12227.  move.l pos1RIGHT,a0
  12228.  move.l pos3RIGHT,a1
  12229.  
  12230.  move.l Aupt3,a3
  12231.  move.l a3,$dff0c0
  12232.  move.l Auback3,Aupt3
  12233.  move.l a3,Auback3
  12234.  
  12235.  move.l #tab,a2
  12236.  
  12237.  moveq #0,d0
  12238.  moveq #0,d1
  12239.  move.b vol1right,d0
  12240.  move.b vol3right,d1
  12241.  cmp.b d1,d0
  12242.  slt.s swappedem
  12243.  bge.s fbig3
  12244.  
  12245.  exg a0,a1
  12246.  asl.w #6,d0
  12247.  divs d1,d0
  12248.  lsl.w #8,d0
  12249.  adda.w d0,a2
  12250.  move.w d1,$dff0c8
  12251.  bra.s donechan3
  12252.  
  12253. fbig3:
  12254.  tst.w d0
  12255.  beq.s donechan3
  12256.  asl.w #6,d1
  12257.  divs d0,d1
  12258.  lsl.w #8,d1
  12259.  adda.w d1,a2
  12260.  move.w d0,$dff0c8
  12261. donechan3:
  12262.  
  12263.  moveq #0,d0
  12264.  moveq #0,d1
  12265.  moveq #0,d2
  12266.  moveq #0,d3
  12267.  moveq #0,d4
  12268.  moveq #0,d5
  12269.  move.w #49,d7
  12270. loop4:
  12271.  move.l (a0)+,d0
  12272.  move.b (a1)+,d1
  12273.  move.b (a1)+,d2
  12274.  move.b (a1)+,d3
  12275.  move.b (a1)+,d4
  12276.  move.b (a2,d3.w),d5
  12277.  swap d5
  12278.  move.b (a2,d1.w),d5
  12279.  asl.l #8,d5
  12280.  move.b (a2,d2.w),d5
  12281.  swap d5
  12282.  move.b (a2,d4.w),d5
  12283.  add.l d5,d0
  12284.  move.l d0,(a3)+
  12285.  dbra d7,loop4
  12286.  
  12287.  tst.b swappedem
  12288.  beq.s .ok23
  12289.  exg a0,a1
  12290. .ok23:
  12291.  
  12292.  cmp.l Samp1endRIGHT,a0
  12293.  blt.s notoffendsamp3
  12294.  move.l #empty,a0
  12295.  move.l #emptyend,Samp1endRIGHT
  12296.  move.b #0,vol1right
  12297.  clr.w RIGHTCHANDATA+32+4
  12298.  move.w #0,RIGHTCHANDATA+2+4
  12299. notoffendsamp3:
  12300.  
  12301.  cmp.l Samp3endRIGHT,a1
  12302.  blt.s notoffendsamp4
  12303.  move.l #empty,a1
  12304.  move.l #emptyend,Samp3endRIGHT
  12305.  move.b #0,vol3right
  12306.  clr.w RIGHTCHANDATA+32+12
  12307.  move.w #0,RIGHTCHANDATA+2+12
  12308. notoffendsamp4:
  12309.  
  12310.  move.l a0,pos1RIGHT
  12311.  move.l a1,pos3RIGHT
  12312.  
  12313.  movem.l (a7)+,d0-d7/a0-a6
  12314. ; tst.b counting
  12315. ; beq .nostartcounter
  12316. ; JSR STARTCOUNT
  12317. ;.nostartcounter:
  12318.  
  12319.  move.w #$820f,$dff000+dmacon
  12320.  
  12321.  moveq #0,d0
  12322.  rts
  12323.  
  12324. ***********************************
  12325. * 4 channel sound routine
  12326. ***********************************
  12327.  
  12328. fourchannel:
  12329.  
  12330.  move.l #$dff000,a6
  12331.  
  12332.  tst.b LEFTCHANDATA
  12333.  bne.s NoChan0sound
  12334.  
  12335.  btst #7,intreqrl(a6)
  12336.  beq.s nofinish0
  12337. ; move.w #0,LEFTCHANDATA+2
  12338. ; st LEFTCHANDATA+1
  12339.  move.l #null,$a0(a6)
  12340.  move.w #100,$a4(a6) 
  12341.  move.w #$0080,intreq(a6)
  12342. nofinish0:
  12343.  
  12344.  tst.b NoiseMade0pLEFT
  12345.  beq.s NoChan0sound
  12346.  
  12347.  move.l Samp0endLEFT,d0
  12348.  move.l pos0LEFT,d1
  12349.  sub.l d1,d0
  12350.  lsr.l #1,d0
  12351.  move.w d0,$a4(a6)
  12352.  move.l d1,$a0(a6)
  12353.  ext.l d0
  12354.  divs #100,d0
  12355.  move.w d0,playnull0
  12356.  move.w #$8201,dmacon(a6)
  12357.  moveq #0,d0
  12358.  move.b vol0left,d0
  12359.  move.w d0,$a8(a6)
  12360.  
  12361. NoChan0sound:
  12362.  
  12363. *****************************************
  12364. *****************************************
  12365.  
  12366.  btst #0,intreqr(a6)
  12367.  beq.s nofinish1
  12368.  move.l #null,$b0(a6)
  12369.  move.w #100,$b4(a6)
  12370.  move.w #$0100,intreq(a6)
  12371. nofinish1:
  12372.  
  12373.  tst.b NoiseMade0pRIGHT
  12374.  beq.s NoChan1sound
  12375.  
  12376.  move.l Samp0endRIGHT,d0
  12377.  move.l pos0RIGHT,d1
  12378.  sub.l d1,d0
  12379.  lsr.l #1,d0
  12380.  move.w d0,$b4(a6)
  12381.  move.l d1,$b0(a6)
  12382.  ext.l d0
  12383.  divs #100,d0
  12384.  move.w d0,playnull1
  12385.  move.w #$8202,dmacon(a6)
  12386.  moveq #0,d0
  12387.  move.b vol0right,d0
  12388.  move.w d0,$b8(a6)
  12389.  
  12390. NoChan1sound:
  12391.  
  12392. *****************************************
  12393. *****************************************
  12394.  
  12395.  btst #1,intreqr(a6)
  12396.  beq.s nofinish2
  12397.  move.l #null,$c0(a6)
  12398.  move.w #100,$c4(a6)
  12399.  move.w #$0200,intreq(a6)
  12400. nofinish2:
  12401.  
  12402.  tst.b NoiseMade1pRIGHT
  12403.  beq.s NoChan2sound
  12404.  
  12405.  move.l Samp1endRIGHT,d0
  12406.  move.l pos1RIGHT,d1
  12407.  sub.l d1,d0
  12408.  lsr.l #1,d0
  12409.  move.w d0,$c4(a6)
  12410.  ext.l d0
  12411.  divs #100,d0
  12412.  move.w d0,playnull2
  12413.  
  12414.  move.l d1,$c0(a6)
  12415.  move.w #$8204,dmacon(a6)
  12416.  moveq #0,d0
  12417.  move.b vol1right,d0
  12418.  move.w d0,$c8(a6)
  12419.  
  12420. NoChan2sound:
  12421.  
  12422. *****************************************
  12423. *****************************************
  12424.  
  12425.  btst #2,intreqr(a6)
  12426.  beq.s nofinish3
  12427.  move.l #null,$d0(a6)
  12428.  move.w #100,$d4(a6)
  12429.  move.w #$0400,intreq(a6)
  12430. nofinish3:
  12431.  
  12432.  tst.b NoiseMade1pLEFT
  12433.  beq.s NoChan3sound
  12434.  
  12435.  move.l Samp1endLEFT,d0
  12436.  move.l pos1LEFT,d1
  12437.  sub.l d1,d0
  12438.  lsr.l #1,d0
  12439.  move.w d0,$d4(a6)
  12440.  ext.l d0
  12441.  divs #100,d0
  12442.  move.w d0,playnull3
  12443.  move.l d1,$d0(a6)
  12444.  move.w #$8208,dmacon(a6)
  12445.  moveq #0,d0
  12446.  move.b vol1left,d0
  12447.  move.w d0,$d8(a6)
  12448.  
  12449. NoChan3sound:
  12450.  
  12451. nomorechannels:
  12452.  
  12453.  move.l NoiseMade0LEFT,NoiseMade0pLEFT
  12454.  move.l #0,NoiseMade0LEFT
  12455.  move.l NoiseMade0RIGHT,NoiseMade0pRIGHT
  12456.  move.l #0,NoiseMade0RIGHT
  12457.  
  12458. ; tst.b playnull0
  12459. ; beq.s .nnul
  12460. ; sub.b #1,playnull0
  12461. ; bra.s chan0still
  12462. ;.nnul:
  12463. ; 
  12464. ;chan0still:
  12465.  
  12466.  tst.b NoiseMade0pLEFT
  12467.  bne.s chan0still
  12468.  tst.w playnull0
  12469.  beq.s nnul0
  12470.  sub.w #1,playnull0
  12471.  bra.s chan0still
  12472. nnul0:
  12473.  move.w #0,LEFTCHANDATA+2
  12474.  clr.w LEFTCHANDATA+32
  12475. chan0still:
  12476.  
  12477.  tst.b NoiseMade0pRIGHT
  12478.  bne.s chan1still    ;it'll never work
  12479.  tst.w playnull1
  12480.  beq.s nnul1
  12481.  sub.w #1,playnull1
  12482.  bra.s chan1still
  12483. nnul1:
  12484.  move.w #0,RIGHTCHANDATA+2
  12485.  clr.w RIGHTCHANDATA+32
  12486. chan1still:
  12487.  
  12488.  tst.b NoiseMade1pRIGHT
  12489.  bne.s chan2still
  12490.  tst.w playnull2
  12491.  beq.s nnul2
  12492.  sub.w #1,playnull2
  12493.  bra.s chan2still
  12494. nnul2:
  12495.  move.w #0,RIGHTCHANDATA+2+4
  12496.  clr.w RIGHTCHANDATA+32+4
  12497. chan2still:
  12498.  
  12499.  tst.b NoiseMade1pLEFT
  12500.  bne.s chan3still
  12501.  tst.w playnull3
  12502.  beq.s nnul3
  12503.  sub.w #1,playnull3
  12504.  bra.s chan3still
  12505. nnul3:
  12506.  move.w #0,LEFTCHANDATA+2+4
  12507.  clr.w LEFTCHANDATA+32+4
  12508.  
  12509. chan3still:
  12510.  
  12511.  
  12512.  movem.l (a7)+,d0-d7/a0-a6
  12513.  
  12514.  moveq #0,d0
  12515.  rts
  12516.  
  12517. backbeat: dc.w 0
  12518.  
  12519. playnull0: dc.w 0
  12520. playnull1: dc.w 0
  12521. playnull2: dc.w 0
  12522. playnull3: dc.w 0
  12523.  
  12524. Samp0endRIGHT: dc.l emptyend
  12525. Samp1endRIGHT: dc.l emptyend
  12526. Samp2endRIGHT: dc.l emptyend
  12527. Samp3endRIGHT: dc.l emptyend
  12528. Samp0endLEFT: dc.l emptyend
  12529. Samp1endLEFT: dc.l emptyend
  12530. Samp2endLEFT: dc.l emptyend
  12531. Samp3endLEFT: dc.l emptyend
  12532.  
  12533. Aupt0: dc.l null
  12534. Auback0: dc.l null+500
  12535. Aupt2: dc.l null3
  12536. Auback2: dc.l null3+500
  12537. Aupt3: dc.l null4
  12538. Auback3: dc.l null4+500
  12539. Aupt1: dc.l null2
  12540. Auback1: dc.l null2+500
  12541.  
  12542. NoiseMade0LEFT: dc.b 0
  12543. NoiseMade1LEFT: dc.b 0
  12544. NoiseMade2LEFT: dc.b 0
  12545. NoiseMade3LEFT: dc.b 0
  12546. NoiseMade0pLEFT: dc.b 0
  12547. NoiseMade1pLEFT: dc.b 0
  12548. NoiseMade2pLEFT: dc.b 0
  12549. NoiseMade3pLEFT: dc.b 0
  12550. NoiseMade0RIGHT: dc.b 0
  12551. NoiseMade1RIGHT: dc.b 0
  12552. NoiseMade2RIGHT: dc.b 0
  12553. NoiseMade3RIGHT: dc.b 0
  12554. NoiseMade0pRIGHT: dc.b 0
  12555. NoiseMade1pRIGHT: dc.b 0
  12556. NoiseMade2pRIGHT: dc.b 0
  12557. NoiseMade3pRIGHT: dc.b 0
  12558.  
  12559. empty: ds.l 100
  12560. emptyend:
  12561.  
  12562. **************************************
  12563. * I want a routine to calculate all the
  12564. * info needed for the sound player to
  12565. * work, given say position of noise, volume
  12566. * and sample number.
  12567.  
  12568. Samplenum: dc.w 0
  12569. Noisex: dc.w 0
  12570. Noisez: dc.w 0
  12571. Noisevol: dc.w 0
  12572. chanpick: dc.w 0
  12573. IDNUM: dc.w 0
  12574. needleft: dc.b 0
  12575. needright: dc.b 0
  12576. STEREO: dc.b $0
  12577. even
  12578. prot6: dc.w 0
  12579.  
  12580.  even
  12581. CHANNELDATA:
  12582. LEFTCHANDATA:
  12583.  dc.l $00000000
  12584.  dc.l $00000000
  12585.  dc.l $FF000000
  12586.  dc.l $FF000000
  12587. RIGHTCHANDATA:
  12588.  dc.l $00000000
  12589.  dc.l $00000000
  12590.  dc.l $FF000000
  12591.  dc.l $FF000000
  12592.  
  12593.  ds.l 8
  12594.  
  12595. RIGHTPLAYEDTAB: ds.l 20
  12596. LEFTPLAYEDTAB: ds.l 20
  12597.  
  12598. SourceEcho: dc.w 0
  12599. PLREcho: dc.w 0
  12600.  
  12601.  
  12602. LEFTOFFSET: dc.l 0
  12603. RIGHTOFFSET: dc.l 0
  12604.  
  12605. MakeSomeNoise:
  12606.  
  12607. ; move.w #$10,$dff000+intena
  12608.  
  12609. ; Plan for new sound handler:
  12610. ; It is sent a sample number,
  12611. ; a position relative to the
  12612. ; player, an id number and a volume.
  12613. ; Also notifplaying.
  12614.     
  12615. ; indirect inputs are the available
  12616. ; channel flags and whether or not
  12617. ; stereo sound is selected.
  12618.  
  12619. ; the algorithm must decide
  12620. ; whether the new sound is more
  12621. ; important than the ones already
  12622. ; playing. Thus an 'importance'
  12623. ; must be calculated, probably
  12624. ; using volume.
  12625.  
  12626. ; The output needs to be:
  12627.  
  12628. ; Write the pointers and volumes of
  12629. ; the sound channels
  12630.  
  12631.  tst.b notifplaying
  12632.  beq.s dontworry
  12633.  
  12634. ; find if we are already playing
  12635.  
  12636.  move.w IDNUM,d0
  12637.  cmp.w #$ffff,d0
  12638.  beq.s dontworry
  12639.  move.w #7,d1
  12640.  lea CHANNELDATA,a3
  12641. findsameasme
  12642.  tst.b (a3)
  12643.  bne.s notavail
  12644.  cmp.w 32(a3),d0
  12645.  beq SameAsMe
  12646. notavail:
  12647.  add.w #4,a3
  12648.  dbra d1,findsameasme
  12649.  bra dontworry
  12650. SameAsMe
  12651. ; move.w #$8010,$dff000+intena
  12652.  rts
  12653.  
  12654. noiseloud: dc.w 0
  12655.  
  12656. dontworry:
  12657.  
  12658. ; Ok its fine for us to play a sound.
  12659. ; So calculate left/right volume.
  12660.  
  12661.  move.w Noisex,d1
  12662.  muls d1,d1
  12663.  move.w Noisez,d2
  12664.  muls d2,d2
  12665.  move.w Noisevol,d3
  12666.  move.w #32767,noiseloud
  12667.  moveq #1,d0
  12668.  add.l d1,d2
  12669.  beq pastcalc
  12670.  
  12671.  move.w #31,d0
  12672. .findhigh
  12673.  btst d0,d2
  12674.  bne .foundhigh
  12675.  dbra d0,.findhigh
  12676. .foundhigh
  12677.  asr.w #1,d0
  12678.  clr.l d3
  12679.  bset d0,d3
  12680.  move.l d3,d0
  12681.  
  12682.  move.w d0,d3
  12683.  muls d3,d3    ; x*x
  12684.  sub.l d2,d3    ; x*x-a
  12685.  asr.l #1,d3    ; (x*x-a)/2
  12686.  divs d0,d3    ; (x*x-a)/2x
  12687.  sub.w d3,d0    ; second approx
  12688.  bgt .stillnot0
  12689.  move.w #1,d0
  12690. .stillnot0
  12691.  
  12692.  move.w d0,d3
  12693.  muls d3,d3
  12694.  sub.l d2,d3
  12695.  asr.l #1,d3
  12696.  divs d0,d3
  12697.  sub.w d3,d0    ; second approx
  12698.  bgt .stillnot02
  12699.  move.w #1,d0
  12700. .stillnot02
  12701.  
  12702.  move.w Noisevol,d3
  12703.  ext.l d3
  12704.  asl.l #6,d3
  12705.  cmp.l #32767,d3
  12706.  ble.s .nnnn
  12707.  move.l #32767,d3
  12708. .nnnn
  12709.  
  12710.  asr.w #2,d0
  12711.  addq #1,d0
  12712.  divs d0,d3
  12713.  
  12714. pastcalc:
  12715.  move.w d3,noiseloud
  12716.  
  12717.  cmp.w #64,d3
  12718.  ble.s notooloud
  12719.  move.w #64,d3
  12720. notooloud:
  12721.  
  12722.     ; d3 contains volume of noise.
  12723.     
  12724.  move.w d3,d4
  12725.  tst.b STEREO
  12726.  beq NOSTEREO
  12727.  
  12728.  move.w d3,d2
  12729.  muls Noisex,d2
  12730.  asl.w #2,d0
  12731.  divs d0,d2
  12732.  
  12733.  bgt.s quietleft
  12734.  add.w d2,d4
  12735.  bge.s donequiet
  12736.  move.w #0,d4
  12737.  bra.s donequiet
  12738. quietleft:
  12739.  sub.w d2,d3
  12740.  bge.s donequiet
  12741.  move.w #0,d3
  12742. donequiet:
  12743.  
  12744. ; d3=leftvol?
  12745. ; d4=rightvol?
  12746.  
  12747.  
  12748.     ; d3 contains volume of noise.
  12749.     
  12750.  move.w #$ffff,needleft
  12751.  
  12752.  move.l #0,RIGHTOFFSET
  12753.  move.l #0,LEFTOFFSET
  12754.  
  12755.  cmp.b d3,d4
  12756.  bgt.s RightLouder
  12757.  beq.s NoLouder
  12758.  
  12759.  move.l #4,LEFTOFFSET
  12760.  
  12761. ; Left is louder; is it MUCH louder?
  12762.  
  12763.  st needleft
  12764.  move.w d3,d2
  12765.  sub.w d4,d2
  12766.  cmp.w #32,d2
  12767.  slt needright
  12768.  bra aboutsame
  12769.  
  12770. RightLouder:
  12771.  move.l #4,RIGHTOFFSET
  12772.  st needright
  12773.  move.w d4,d2
  12774.  sub.w d3,d2
  12775.  cmp.w #32,d2
  12776.  slt needleft
  12777.  
  12778. aboutsame:
  12779. NoLouder:
  12780.  
  12781.  
  12782. ; Find least important sound on left
  12783.  
  12784.  move.l #0,a2
  12785.  move.l #0,d5
  12786.  move.w #32767,d2
  12787.  move.w IDNUM,d0
  12788.  lea LEFTCHANDATA,a3
  12789.  move.w #3,d1
  12790. FindLeftChannel
  12791.  tst.b (a3)
  12792.  bne.s .notactive
  12793.  cmp.w 32(a3),d0
  12794.  beq.s FOUNDLEFT
  12795.  cmp.w 2(a3),d2
  12796.  blt.s .notactive
  12797.  move.w 2(a3),d2
  12798.  move.l a3,a2
  12799.  move.w d5,d6
  12800.  
  12801. .notactive:
  12802.  add.w #4,a3
  12803.  add.w #1,d5
  12804.  dbra d1,FindLeftChannel
  12805.  move.l a2,a3
  12806.  bra.s gopastleft
  12807. FOUNDLEFT:
  12808.  move.w d5,d6
  12809. gopastleft:
  12810.  move.l a3,d5
  12811.  tst.l d5
  12812.  bne.s FOUNDALEFT
  12813. NONOISE:
  12814. ; move.w #$8010,$dff000+intena
  12815.  rts
  12816. FOUNDALEFT:
  12817.  
  12818.  cmp.w noiseloud,d2
  12819.  bge dorightchan
  12820.  
  12821. ; d6 = channel number
  12822.  cmp.w #$ffff,d0
  12823.  bne.s .noche
  12824.  move.w #$fffe,d0
  12825. .noche:
  12826.  move.w d0,32(a3)
  12827.  move.w noiseloud,2(a3)
  12828.  
  12829.  move.w Samplenum,d5
  12830.  
  12831. ; tst.b Echo
  12832. ; bne.s YESECHO
  12833. ; tst.b SourceEcho
  12834. ; beq.s NOECHO
  12835. ;
  12836. ;YESECHO:
  12837. ;
  12838. ; move.l LINKFILE,a3
  12839. ; add.l #EchoTable,a3
  12840. ; move.b (a3,d5.w),d5
  12841. ;
  12842. ;NOECHO:
  12843.  
  12844.  move.l #SampleList,a3
  12845.  move.l (a3,d5.w*8),a1
  12846.  add.l LEFTOFFSET,a1
  12847.  move.l 4(a3,d5.w*8),a2
  12848.  add.l LEFTOFFSET,a2
  12849.  
  12850.  tst.b d6
  12851.  seq NoiseMade0LEFT
  12852.  beq.s .chan0
  12853.  cmp.b #2,d6
  12854.  slt NoiseMade1LEFT
  12855.  blt .chan1
  12856.  seq NoiseMade2LEFT
  12857.  beq .chan2
  12858.  st NoiseMade3LEFT
  12859.  
  12860.  move.b d5,LEFTPLAYEDTAB+9
  12861.  move.b d3,LEFTPLAYEDTAB+1+9
  12862.  move.b d4,LEFTPLAYEDTAB+2+9
  12863.  move.b d3,vol3left
  12864.  move.l a1,pos3LEFT
  12865.  move.l a2,Samp3endLEFT
  12866.  bra dorightchan
  12867.  
  12868. .chan0: 
  12869.  move.b d5,LEFTPLAYEDTAB
  12870.  move.b d3,LEFTPLAYEDTAB+1
  12871.  move.b d4,LEFTPLAYEDTAB+2
  12872.  move.l a1,pos0LEFT
  12873.  move.l a2,Samp0endLEFT
  12874.  move.b d3,vol0left
  12875.  bra dorightchan
  12876.  
  12877. .chan1:
  12878.  move.b d5,LEFTPLAYEDTAB+3
  12879.  move.b d3,LEFTPLAYEDTAB+1+3
  12880.  move.b d4,LEFTPLAYEDTAB+2+3
  12881.  move.b d3,vol1left
  12882.  move.l a1,pos1LEFT
  12883.  move.l a2,Samp1endLEFT
  12884.  bra dorightchan
  12885.  
  12886. .chan2: 
  12887.  move.b d5,LEFTPLAYEDTAB+6
  12888.  move.b d3,LEFTPLAYEDTAB+1+6
  12889.  move.b d4,LEFTPLAYEDTAB+2+6
  12890.  move.l a1,pos2LEFT
  12891.  move.l a2,Samp2endLEFT
  12892.  move.b d3,vol2left
  12893.  
  12894. dorightchan:
  12895.  
  12896. ; Find least important sound on right
  12897.  
  12898.  move.l #0,a2
  12899.  move.l #0,d5
  12900.  move.w #10000,d2
  12901.  move.w IDNUM,d0
  12902.  lea RIGHTCHANDATA,a3
  12903.  move.w #3,d1
  12904. FindRightChannel
  12905.  tst.b (a3)
  12906.  bne.s .notactive
  12907.  cmp.w 32(a3),d0
  12908.  beq.s FOUNDRIGHT
  12909.  cmp.w 2(a3),d2
  12910.  blt.s .notactive
  12911.  move.w 2(a3),d2
  12912.  move.l a3,a2
  12913.  move.w d5,d6
  12914.  
  12915. .notactive:
  12916.  add.w #4,a3
  12917.  add.w #1,d5
  12918.  dbra d1,FindRightChannel
  12919.  move.l a2,a3
  12920.  bra.s gopastright
  12921. FOUNDRIGHT:
  12922.  move.w d5,d6
  12923. gopastright:
  12924.  move.l a3,d5
  12925.  tst.l d5
  12926.  bne.s FOUNDARIGHT
  12927. tototot:
  12928. ; move.w #$8010,$dff000+intena
  12929.  rts
  12930. FOUNDARIGHT:
  12931.  
  12932.  cmp.w noiseloud,d2
  12933.  bgt.s tototot
  12934.  
  12935. ; d6 = channel number
  12936.  cmp.w #$ffff,d0
  12937.  bne.s .noche
  12938.  move.w #$fffe,d0
  12939. .noche:
  12940.  move.w d0,32(a3)
  12941.  move.w noiseloud,2(a3)
  12942.  
  12943.  move.w Samplenum,d5
  12944.  move.l #SampleList,a3
  12945.  move.l (a3,d5.w*8),a1
  12946.  move.l 4(a3,d5.w*8),a2
  12947.  add.l RIGHTOFFSET,a1
  12948.  add.l RIGHTOFFSET,a2
  12949.  
  12950.  tst.b d6
  12951.  seq NoiseMade0RIGHT
  12952.  beq.s .chan0
  12953.  cmp.b #2,d6
  12954.  slt NoiseMade1RIGHT
  12955.  blt .chan1
  12956.  seq NoiseMade2RIGHT
  12957.  beq .chan2
  12958.  st NoiseMade3RIGHT
  12959.  
  12960.  move.b d5,RIGHTPLAYEDTAB+9
  12961.  move.b d3,RIGHTPLAYEDTAB+1+9
  12962.  move.b d4,RIGHTPLAYEDTAB+2+9
  12963.  move.b d4,vol3right
  12964.  move.l a1,pos3RIGHT
  12965.  move.l a2,Samp3endRIGHT
  12966. ; move.w #$8010,$dff000+intena
  12967.  rts
  12968.  
  12969. .chan0: 
  12970.  move.b d5,RIGHTPLAYEDTAB
  12971.  move.b d3,RIGHTPLAYEDTAB+1
  12972.  move.b d4,RIGHTPLAYEDTAB+2
  12973.  move.l a1,pos0RIGHT
  12974.  move.l a2,Samp0endRIGHT
  12975.  move.b d4,vol0right
  12976. ; move.w #$8010,$dff000+intena
  12977.  rts
  12978.  
  12979. .chan1:
  12980.  move.b d5,RIGHTPLAYEDTAB+3
  12981.  move.b d3,RIGHTPLAYEDTAB+1+3
  12982.  move.b d4,RIGHTPLAYEDTAB+2+3
  12983.  move.b d3,vol1right
  12984.  move.l a1,pos1RIGHT
  12985.  move.l a2,Samp1endRIGHT
  12986. ; move.w #$8010,$dff000+intena
  12987.  rts
  12988.  
  12989. .chan2: 
  12990.  move.b d5,RIGHTPLAYEDTAB+6
  12991.  move.b d3,RIGHTPLAYEDTAB+1+6
  12992.  move.b d4,RIGHTPLAYEDTAB+2+6
  12993.  move.l a1,pos2RIGHT
  12994.  move.l a2,Samp2endRIGHT
  12995.  move.b d3,vol2right
  12996. ; move.w #$8010,$dff000+intena
  12997.  rts
  12998.  
  12999. NOSTEREO:
  13000.  move.l #0,a2
  13001.  move.l #-1,d5
  13002.  move.w #32767,d2
  13003.  move.w IDNUM,d0
  13004.  lea CHANNELDATA,a3
  13005.  move.w #7,d1
  13006.  moveq #-1,d6
  13007.  
  13008. FindChannel
  13009.  tst.b (a3)
  13010.  bne.s .notactive
  13011.  cmp.w 32(a3),d0
  13012.  beq.s FOUNDMYCHAN
  13013.  cmp.w 2(a3),d2
  13014.  blt.s .notactive
  13015.  move.w 2(a3),d2
  13016.  move.l a3,a2
  13017.  move.w d5,d6
  13018.  add.w #1,d6
  13019.  
  13020. .notactive:
  13021.  add.w #4,a3
  13022.  add.w #1,d5
  13023.  dbra d1,FindChannel
  13024.  
  13025.  move.l a2,a3
  13026.  bra.s gopastchan
  13027.  
  13028. FOUNDMYCHAN:
  13029.  move.w 2(a3),d2
  13030.  
  13031. FOUNDCHAN:
  13032.  move.w d5,d6
  13033.  add.w #1,d6
  13034. gopastchan:
  13035.  tst.w d6
  13036.  bge.s FOUNDACHAN
  13037. tooquiet:
  13038. ; move.w #$8010,$dff000+intena
  13039.  rts
  13040. FOUNDACHAN:
  13041.  
  13042. ; d6 = channel number
  13043.  
  13044.  cmp.w noiseloud,d2
  13045.  bgt.s tooquiet
  13046.  
  13047.  cmp.w #$ffff,d0
  13048.  bne.s .noche
  13049.  move.w #$fffe,d0
  13050. .noche:
  13051.  move.w d0,32(a3)
  13052.  move.w noiseloud,2(a3)
  13053.  
  13054.  move.w Samplenum,d5
  13055.  
  13056. ; tst.b Echo
  13057. ; bne.s YESECHO2
  13058. ; tst.b SourceEcho
  13059. ; beq.s NOECHO2
  13060. ;
  13061. ;YESECHO2:
  13062. ;
  13063. ; move.l LINKFILE,a3
  13064. ; add.l #EchoTable,a3
  13065. ; move.b (a3,d5.w),d5
  13066. ;
  13067. ;NOECHO2:
  13068.  
  13069.  move.l #SampleList,a3
  13070.  move.l (a3,d5.w*8),a1
  13071.  move.l 4(a3,d5.w*8),a2
  13072.  
  13073.  tst.b d6
  13074.  beq .chan0
  13075.  cmp.b #2,d6
  13076.  blt .chan1
  13077.  beq .chan2
  13078.  cmp.b #4,d6
  13079.  blt .chan3
  13080.  beq .chan4
  13081.  cmp.b #6,d6
  13082.  blt .chan5
  13083.  beq .chan6
  13084.  st NoiseMade3RIGHT
  13085.  
  13086.  move.b d5,RIGHTPLAYEDTAB+9
  13087.  move.b d3,RIGHTPLAYEDTAB+1+9
  13088.  move.b d4,RIGHTPLAYEDTAB+2+9
  13089.  move.b d4,vol3right
  13090.  move.l a1,pos3RIGHT
  13091.  move.l a2,Samp3endRIGHT
  13092. ; move.w #$8010,$dff000+intena
  13093.  rts
  13094.  
  13095. .chan3:
  13096.  st NoiseMade3LEFT
  13097.  move.b d5,LEFTPLAYEDTAB+9
  13098.  move.b d3,LEFTPLAYEDTAB+1+9
  13099.  move.b d4,LEFTPLAYEDTAB+2+9
  13100.  move.b d3,vol3left
  13101.  move.l a1,pos3LEFT
  13102.  move.l a2,Samp3endLEFT
  13103. ; move.w #$8010,$dff000+intena
  13104.  rts
  13105.  
  13106. .chan0: 
  13107.  st NoiseMade0LEFT
  13108.  move.b d5,LEFTPLAYEDTAB
  13109.  move.b d3,LEFTPLAYEDTAB+1
  13110.  move.b d4,LEFTPLAYEDTAB+2
  13111.  move.l a1,pos0LEFT
  13112.  move.l a2,Samp0endLEFT
  13113.  move.b d3,vol0left
  13114. ; move.w #$8010,$dff000+intena
  13115.  rts
  13116.  
  13117. .chan1:
  13118.  st NoiseMade1LEFT
  13119.  move.b d5,LEFTPLAYEDTAB+3
  13120.  move.b d3,LEFTPLAYEDTAB+1+3
  13121.  move.b d4,LEFTPLAYEDTAB+2+3
  13122.  move.b d3,vol1left
  13123.  move.l a1,pos1LEFT
  13124.  move.l a2,Samp1endLEFT
  13125. ; move.w #$8010,$dff000+intena
  13126.  rts
  13127.  
  13128. .chan2: 
  13129.  st NoiseMade2LEFT
  13130.  move.b d5,LEFTPLAYEDTAB+6
  13131.  move.b d3,LEFTPLAYEDTAB+1+6
  13132.  move.b d4,LEFTPLAYEDTAB+2+6
  13133.  move.l a1,pos2LEFT
  13134.  move.l a2,Samp2endLEFT
  13135.  move.b d3,vol2left
  13136. ; move.w #$8010,$dff000+intena
  13137.  rts
  13138.  
  13139. .chan4: 
  13140.  st NoiseMade0RIGHT
  13141.  move.b d5,RIGHTPLAYEDTAB
  13142.  move.b d3,RIGHTPLAYEDTAB+1
  13143.  move.b d4,RIGHTPLAYEDTAB+2
  13144.  move.l a1,pos0RIGHT
  13145.  move.l a2,Samp0endRIGHT
  13146.  move.b d4,vol0right
  13147. ; move.w #$8010,$dff000+intena
  13148.  rts
  13149.  
  13150. .chan5:
  13151.  st NoiseMade1RIGHT
  13152.  move.b d5,RIGHTPLAYEDTAB+3
  13153.  move.b d3,RIGHTPLAYEDTAB+1+3
  13154.  move.b d4,RIGHTPLAYEDTAB+2+3
  13155.  move.b d3,vol1right
  13156.  move.l a1,pos1RIGHT
  13157.  move.l a2,Samp1endRIGHT
  13158. ; move.w #$8010,$dff000+intena
  13159.  rts
  13160.  
  13161. .chan6: 
  13162.  st NoiseMade2RIGHT
  13163.  move.b d5,RIGHTPLAYEDTAB+6
  13164.  move.b d3,RIGHTPLAYEDTAB+1+6
  13165.  move.b d4,RIGHTPLAYEDTAB+2+6
  13166.  move.l a1,pos2RIGHT
  13167.  move.l a2,Samp2endRIGHT
  13168.  move.b d3,vol2right
  13169. ; move.w #$8010,$dff000+intena
  13170.  rts
  13171.  
  13172. SampleList:
  13173.  dc.l Scream,EndScream
  13174.  dc.l Shoot,EndShoot
  13175.  dc.l Munch,EndMunch
  13176.  dc.l PooGun,EndPooGun
  13177.  dc.l Collect,EndCollect
  13178. ;5
  13179.  dc.l DoorNoise,EndDoorNoise
  13180.  dc.l 0,0
  13181.  dc.l Stomp,EndStomp
  13182.  dc.l LowScream,EndLowScream
  13183.  dc.l BaddieGun,EndBaddieGun
  13184. ;10
  13185.  dc.l SwitchNoise,EndSwitch
  13186.  dc.l Reload,EndReload
  13187.  dc.l NoAmmo,EndNoAmmo
  13188.  dc.l Splotch,EndSplotch
  13189.  dc.l SplatPop,EndSplatPop
  13190. ;15
  13191.  dc.l Boom,EndBoom
  13192.  dc.l Hiss,EndHiss
  13193.  dc.l Howl1,EndHowl1
  13194.  dc.l Howl2,EndHowl2
  13195.  dc.l Pant,EndPant
  13196. ;20
  13197.  dc.l Whoosh,EndWhoosh
  13198.  dc.l ROAR,EndROAR
  13199.  dc.l whoosh,Endwhoosh
  13200.  dc.l 0,0
  13201.  dc.l 0,0
  13202.  dc.l 0,0
  13203.  dc.l 0,0
  13204.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13205.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13206.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13207.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13208.  
  13209.  dc.l 0
  13210.  
  13211. storeval: dc.w 0
  13212.  
  13213.  include "ab3:source_4000/wallchunk.s"
  13214.  include "ab3:source_4000/newloadfromdisk.s"
  13215.  include "ab3:source_4000/screensetup.s"
  13216.  include "ab3:source_4000/CONTROLLOOP.s"
  13217.  
  13218.  
  13219.  
  13220.  
  13221. saveinters:  
  13222.  dc.w 0
  13223.  
  13224. z: dc.w 10
  13225.  
  13226. notifplaying:
  13227.  dc.w 0
  13228.  
  13229. audpos1: dc.w 0
  13230. audpos1b: dc.w 0
  13231. audpos2: dc.w 0
  13232. audpos2b: dc.w 0
  13233. audpos3: dc.w 0
  13234. audpos3b: dc.w 0
  13235. audpos4: dc.w 0
  13236. audpos4b: dc.w 0
  13237.  
  13238. vol0left: dc.w 0
  13239. vol0right: dc.w 0
  13240. vol1left: dc.w 0
  13241. vol1right: dc.w 0
  13242. vol2left: dc.w 0
  13243. vol2right: dc.w 0
  13244. vol3left: dc.w 0
  13245. vol3right: dc.w 0
  13246.  
  13247. pos: dc.l 0
  13248.  
  13249. pos0LEFT: dc.l empty
  13250. pos1LEFT: dc.l empty
  13251. pos2LEFT: dc.l empty
  13252. pos3LEFT: dc.l empty
  13253. pos0RIGHT: dc.l empty
  13254. pos1RIGHT: dc.l empty
  13255. pos2RIGHT: dc.l empty
  13256. pos3RIGHT: dc.l empty
  13257.  
  13258. numtodo dc.w 0
  13259.  
  13260. npt: dc.w 0
  13261.  
  13262. pretab:
  13263. val SET 0
  13264.  REPT 128
  13265.  dc.b val
  13266. val SET val+1
  13267.  ENDR
  13268. val SET -128
  13269.  REPT 128
  13270.  dc.b val
  13271. val SET val+1
  13272.  ENDR 
  13273.  
  13274. tab:
  13275.  ifeq CHEESEY
  13276.  ds.b 256*65
  13277.  endc
  13278.  
  13279. test: dc.l 0
  13280.  ds.l 30
  13281.  
  13282.  
  13283.  even
  13284. ConstCols:
  13285. ; incbin "ConstCols"
  13286.  even
  13287. Smoothscalecols:
  13288. ; incbin "smoothbumppalscaled"
  13289.  even
  13290. SmoothTile:
  13291. ; incbin "smoothbumptile"
  13292.  even
  13293. Bumpscalecols:
  13294. ; incbin "Bumppalscaled"
  13295.  even
  13296. Bumptile:
  13297. ; incbin "bumptile"
  13298.  even
  13299. scalecols: ;incbin "bytepixpalscaled"
  13300.  even
  13301. ;floorscalecols:
  13302. ; incbin "floor256pal"
  13303. ; ds.w 256*4
  13304.  
  13305.  even
  13306. PaletteAddr: dc.l 0
  13307. ChunkAddr: dc.l 0
  13308. ;walltiles:
  13309. ; dc.l GreenMechanicWALL
  13310. ; dc.l BlueGreyMetalWALL
  13311. ; dc.l TechnoDetailWALL
  13312. ; dc.l BlueStoneWALL
  13313. ; dc.l RedAlertWALL
  13314. ; dc.l RockWALL
  13315. ;
  13316. ;GreenMechanicWALL: incbin "ab3:includes/walls/greenmechanic.wad"
  13317. ;BlueGreyMetalWALL: incbin "ab3:includes/walls/BlueGreyMetal.wad"
  13318. ;TechnoDetailWALL: incbin "ab3:includes/walls/TechnoDetail.wad"
  13319. ;BlueStoneWALL: incbin "ab3:includes/walls/bluestone.wad"
  13320. ;RedAlertWALL: incbin "ab3:includes/walls/redalert.wad"
  13321. ;RockWALL: incbin "ab3:includes/walls/rock.wad"
  13322.  
  13323. floortile:
  13324.  dc.l 0
  13325. ; incbin "floortile" 
  13326.  even
  13327. wallrouts:
  13328. ; incbin "2x2WallDraw" 
  13329.  CNOP 0,64
  13330.  
  13331.  ifeq CHEESEY 
  13332. BackPicture:
  13333.  dc.l 0
  13334. ; incbin "rawback"
  13335. EndBackPicture:
  13336.  endc
  13337.  
  13338. drawpt: dc.l 0
  13339. olddrawpt: dc.l 0
  13340. frompt: dc.l 0 
  13341.  
  13342. SineTable:
  13343.  incbin "bigsine"
  13344.  
  13345. angspd: dc.w 0
  13346. flooryoff: dc.w 0
  13347. xoff: dc.l 0
  13348. yoff: dc.l 0
  13349. yvel: dc.l 0
  13350. zoff: dc.l 0
  13351. tyoff: dc.l 0
  13352. xspdval: dc.l 0
  13353. zspdval: dc.l 0
  13354. Zone: dc.w 0
  13355.  
  13356. PLR1: dc.b $ff
  13357.  even
  13358. PLR1_energy: dc.w 191
  13359. PLR1_GunSelected: dc.w 0
  13360. PLR1_cosval: dc.w 0
  13361. PLR1_sinval: dc.w 0
  13362. PLR1_angpos: dc.w 0
  13363. PLR1_angspd: dc.w 0
  13364. PLR1_xoff: dc.l 0
  13365. PLR1_yoff: dc.l 0
  13366. PLR1_yvel: dc.l 0
  13367. PLR1_zoff: dc.l 0
  13368. PLR1_tyoff: dc.l 0
  13369. PLR1_xspdval: dc.l 0
  13370. PLR1_zspdval: dc.l 0
  13371. PLR1_Zone: dc.w 0
  13372. PLR1_Roompt: dc.l 0
  13373. PLR1_FloorSpd: dc.l 0
  13374. PLR2_FloorSpd: dc.l 0
  13375. PLR1_OldRoompt: dc.l 0
  13376. PLR1_PointsToRotatePtr: dc.l 0
  13377. PLR1_ListOfGraphRooms: dc.l 0
  13378. PLR1_oldxoff: dc.l 0
  13379. PLR1_oldzoff: dc.l 0
  13380. PLR1_StoodInTop: dc.b 0
  13381.  even
  13382. PLR1_height: dc.l 0
  13383. PLR1_RoomBright: dc.w 0
  13384.  
  13385. DOUBLEWIDTH: dc.b $0,0
  13386. DOUBLEHEIGHT: dc.b 0,0
  13387. PLR1_TELEPORTED: dc.w 0
  13388. PLR2_TELEPORTED: dc.w 0
  13389.  
  13390.  ds.w 4
  13391.  
  13392. OLDX1: dc.l 0
  13393. OLDX2: dc.l 0
  13394. OLDZ1: dc.l 0
  13395. OLDZ2: dc.l 0
  13396.  
  13397. XDIFF1: dc.l 0
  13398. ZDIFF1: dc.l 0
  13399. XDIFF2: dc.l 0
  13400. ZDIFF2: dc.l 0
  13401.  
  13402. PLR1s_cosval: dc.w 0
  13403. PLR1s_sinval: dc.w 0
  13404. PLR1s_angpos: dc.w 0
  13405. PLR1s_angspd: dc.w 0
  13406. PLR1s_xoff: dc.l 0
  13407. PLR1s_yoff: dc.l 0
  13408. PLR1s_yvel: dc.l 0
  13409. PLR1s_zoff: dc.l 0
  13410. PLR1s_tyoff: dc.l 0
  13411. PLR1s_xspdval: dc.l 0
  13412. PLR1s_zspdval: dc.l 0
  13413. PLR1s_Zone: dc.w 0
  13414. PLR1s_Roompt: dc.l 0
  13415. PLR1s_OldRoompt: dc.l 0
  13416. PLR1s_PointsToRotatePtr: dc.l 0
  13417. PLR1s_ListOfGraphRooms: dc.l 0
  13418. PLR1s_oldxoff: dc.l 0
  13419. PLR1s_oldzoff: dc.l 0
  13420. PLR1s_height: dc.l 0
  13421. PLR1s_targheight: dc.l 0
  13422.  
  13423. PLR1_Echo: dc.w 0
  13424.  
  13425. p1_xoff: dc.l 0
  13426. p1_zoff: dc.l 0
  13427. p1_yoff: dc.l 0
  13428. p1_height: dc.l 0
  13429. p1_angpos: dc.w 0
  13430. p1_bobble: dc.w 0
  13431. p1_clicked: dc.b 0
  13432. p1_spctap: dc.b 0
  13433. p1_ducked: dc.b 0
  13434. p1_gunselected: dc.b 0
  13435. p1_fire: dc.b 0
  13436.  even
  13437. p1_holddown: dc.w 0
  13438.  
  13439.  ds.w 4
  13440.  
  13441. PLR2: dc.b $ff
  13442.  even
  13443. PLR2_GunSelected: dc.w 0
  13444. PLR2_energy: dc.w 191
  13445. PLR2_cosval: dc.w 0
  13446. PLR2_sinval: dc.w 0
  13447. PLR2_angpos: dc.w 0
  13448. PLR2_angspd: dc.w 0
  13449. PLR2_xoff: dc.l 0
  13450. PLR2_yoff: dc.l 0
  13451. PLR2_yvel: dc.l 0
  13452. PLR2_zoff: dc.l 0
  13453. PLR2_tyoff: dc.l 0
  13454. PLR2_xspdval: dc.l 0
  13455. PLR2_zspdval: dc.l 0
  13456. PLR2_Zone: dc.w 0
  13457. PLR2_Roompt: dc.l 0
  13458. PLR2_OldRoompt: dc.l 0
  13459. PLR2_PointsToRotatePtr: dc.l 0
  13460. PLR2_ListOfGraphRooms: dc.l 0
  13461. PLR2_oldxoff: dc.l 0
  13462. PLR2_oldzoff: dc.l 0
  13463. PLR2_StoodInTop: dc.b 0
  13464.  even
  13465. PLR2_height: dc.l 0
  13466. PLR2_Echo: dc.w 0
  13467. Echo: dc.w 0
  13468.  
  13469.  ds.w 4
  13470.  
  13471. PLR2s_cosval: dc.w 0
  13472. PLR2s_sinval: dc.w 0
  13473. PLR2s_angpos: dc.w 0
  13474. PLR2s_angspd: dc.w 0
  13475. PLR2s_xoff: dc.l 0
  13476. PLR2s_yoff: dc.l 0
  13477. PLR2s_yvel: dc.l 0
  13478. PLR2s_zoff: dc.l 0
  13479. PLR2s_tyoff: dc.l 0
  13480. PLR2s_xspdval: dc.l 0
  13481. PLR2s_zspdval: dc.l 0
  13482. PLR2s_Zone: dc.w 0
  13483. PLR2s_Roompt: dc.l 0
  13484. PLR2s_OldRoompt: dc.l 0
  13485. PLR2s_PointsToRotatePtr: dc.l 0
  13486. PLR2s_ListOfGraphRooms: dc.l 0
  13487. PLR2s_oldxoff: dc.l 0
  13488. PLR2s_oldzoff: dc.l 0
  13489. PLR2s_height: dc.l 0
  13490. PLR2s_targheight: dc.l 0
  13491.  
  13492.  ds.w 4
  13493.  
  13494. p2_xoff: dc.l 0
  13495. p2_zoff: dc.l 0
  13496. p2_yoff: dc.l 0
  13497. p2_height: dc.l 0
  13498. p2_angpos: dc.w 0
  13499. p2_bobble: dc.w 0
  13500. p2_clicked: dc.b 0
  13501. p2_spctap: dc.b 0
  13502. p2_ducked: dc.b 0
  13503. p2_gunselected: dc.b 0
  13504. p2_fire: dc.b 0
  13505.  even
  13506. p2_holddown: dc.w 0
  13507.  
  13508. liftanimtab:
  13509.  
  13510. endliftanimtab:
  13511.  
  13512. glassball:
  13513. ; incbin "glassball.inc"
  13514.  
  13515. endglass
  13516. glassballpt: dc.l glassball
  13517.  
  13518. rndtab: ; incbin "randfile"
  13519. endrnd: 
  13520.  
  13521. brightanimtab:
  13522. ; dcb.w 200,20
  13523. ; dc.w 5
  13524. ; dc.w 10,20
  13525. ; dc.w 5
  13526. ; dcb.w 30,20
  13527. ; dc.w 7,10,10,5,10,0,5,6,5,6,5,6,5,6,0
  13528. ; dcb.w 40,0
  13529. ; dc.w 1,2,3,2,3,2,3,2,3,2,3,2,3,0
  13530. ; dcb.w 300,0
  13531. ; dc.w 1,0,1,0,2,2,2,5,5,5,5,5,5,5,5,5,6,10
  13532. ; dc.w -1
  13533.  
  13534. Roompt: dc.l 0
  13535. OldRoompt: dc.l 0
  13536.  
  13537. *****************************************************************
  13538.  *
  13539.  include "AB3:source_4000/LevelData2"
  13540.  *
  13541. *****************************************************************
  13542.  
  13543.  
  13544. wallpt: dc.l 0
  13545. floorpt: dc.l 0
  13546.  
  13547. Rotated:
  13548.  ds.l 2*800 
  13549. ObjRotated:
  13550.  ds.l 2*500
  13551.  
  13552. OnScreen:
  13553.  ds.l 2*800 
  13554.  
  13555. startwait: dc.w 0
  13556. endwait: dc.w 0
  13557.  
  13558. ;Faces:
  13559. ; incbin "faces2raw"
  13560.  
  13561. LINKS: dc.l 0
  13562. FLYLINKS: dc.l 0
  13563. *************************************************************
  13564.  
  13565. consttab:
  13566.  ds.b 65536
  13567.  
  13568. ; incbin "constantfile"
  13569.  
  13570. *******************************************************************
  13571.  
  13572.  
  13573.  
  13574. *********************************
  13575.  
  13576. ; include "ab3:source_4000/loadmod.a"
  13577. ; include "ab3:source_4000/proplayer.a"
  13578.  
  13579.  
  13580. darkentab: 
  13581. ;val SET 0
  13582. ; REPT 256
  13583. ; dc.b val
  13584. ;val SET val+1
  13585. ; ENDR
  13586. ; incbin "darkenfile"
  13587.  
  13588.     dc.w 0
  13589. MIDDLEX: dc.w 0
  13590. RIGHTX: dc.w 192
  13591. FULLSCR: dc.w 0
  13592.  
  13593. ;SHADINGTABLE: incbin "SHADEFILE" 
  13594.  
  13595. ******************************************
  13596. * Link file !*****************************
  13597. ******************************************
  13598.  
  13599. LINKSPACE:
  13600. ; ds.l 22500
  13601. ; incbin "ab3:includes/test.lnk"
  13602.  
  13603. LINKname:
  13604.  dc.b "TKG1:includes/test.lnk",0
  13605.  even
  13606.  
  13607. LINKFILE:
  13608.  dc.l LINKSPACE
  13609.  
  13610. ******************************************
  13611.  
  13612.  
  13613. ;brightentab:
  13614. ; incbin "brightenfile"
  13615. WorkSpace:
  13616.  ds.l 8192 
  13617. waterfile:
  13618.  incbin "waterfile"
  13619.  
  13620.  SECTION ffff,CODE_C
  13621.  
  13622. nullspr: dc.l 0
  13623.  
  13624.  cnop 0,8
  13625. ;borders:
  13626. ; incbin "newleftbord"
  13627. ; incbin "newrightbord"
  13628.  
  13629. health: 
  13630. ;incbin "healthstrip"
  13631. Ammunition: 
  13632. ;incbin "ammostrip"
  13633. healthpal: 
  13634. ;incbin "healthpal"
  13635. PanelKeys: 
  13636. ;incbin "greenkey"
  13637. ; incbin "redkey"
  13638. ; incbin "yellowkey"
  13639. ; incbin "bluekey"
  13640.  
  13641. null: ds.w 500
  13642. null2: ds.w 500
  13643. null3: ds.w 500
  13644. null4: ds.w 500
  13645.  
  13646.  
  13647. Blurbfield:
  13648.  
  13649.  dc.w bpl1ptl
  13650. bl1l: dc.w 0
  13651.  dc.w bpl1pth
  13652. bl1h: dc.w 0
  13653.  
  13654.  dc.w diwstart,$2c81
  13655.  dc.w diwstop,$1cc1
  13656.  dc.w ddfstart,$38
  13657.  dc.w ddfstop,$b8
  13658.  dc.w bplcon0,$9201
  13659.  dc.w bplcon1,0
  13660.  dc.w $106,$c40
  13661. blcols:
  13662.  dc.w col0,0
  13663.  dc.w col1,$fff
  13664.  
  13665.  dc.w $108,0
  13666.  dc.w $10a,0
  13667.  
  13668.  dc.w $ffff,$fffe
  13669.  dc.w $ffff,$fffe
  13670.  
  13671. nullline:
  13672.  ds.b 80    
  13673.  
  13674.  include "ab3:source_4000/titlecop.s"
  13675.  
  13676. bigfield:    
  13677.                 ; Start of our copper list.
  13678.  dc.w dmacon,$8020
  13679.  dc.w intreq,$8011
  13680.  dc.w $1fc,$f
  13681.  dc.w diwstart
  13682. winstart: dc.w $2c81
  13683.  dc.w diwstop
  13684. winstop: dc.w $2cc1
  13685.  dc.w ddfstart
  13686. fetchstart: dc.w $38
  13687.  dc.w ddfstop
  13688. fetchstop: dc.w $b8
  13689.  
  13690. bordercols:
  13691.  incbin "borderpal"
  13692.  
  13693.  dc.w spr0ptl
  13694. s0l:
  13695.  dc.w 0
  13696.  dc.w spr0pth
  13697. s0h:
  13698.  dc.w 0
  13699.  dc.w spr1ptl
  13700. s1l:
  13701.  dc.w 0
  13702.  dc.w spr1pth
  13703. s1h:
  13704.  dc.w 0
  13705.  dc.w spr2ptl
  13706. s2l:
  13707.  dc.w 0
  13708.  dc.w spr2pth
  13709. s2h:
  13710.  dc.w 0
  13711.  dc.w spr3ptl
  13712. s3l:
  13713.  dc.w 0
  13714.  dc.w spr3pth
  13715. s3h:
  13716.  dc.w 0
  13717.  dc.w spr4ptl
  13718. s4l:
  13719.  dc.w 0
  13720.  dc.w spr4pth
  13721. s4h:
  13722.  dc.w 0
  13723.  dc.w spr5ptl
  13724. s5l:
  13725.  dc.w 0
  13726.  dc.w spr5pth
  13727. s5h:
  13728.  dc.w 0
  13729.  dc.w spr6ptl
  13730. s6l:
  13731.  dc.w 0
  13732.  dc.w spr6pth
  13733. s6h:
  13734.  dc.w 0
  13735.  dc.w spr7ptl
  13736. s7l:
  13737.  dc.w 0
  13738.  dc.w spr7pth
  13739. s7h:
  13740.  dc.w 0
  13741.  
  13742. ; dc.w $106,$c42
  13743. ; incbin "borderpal"
  13744.  
  13745.  dc.w $106,$c42
  13746.  
  13747.  dc.w bplcon0,$0211
  13748.  dc.w bplcon1
  13749. smoff:
  13750.  dc.w $0
  13751.  
  13752.  dc.w $108
  13753. modulo: dc.w 0
  13754.  dc.w $10a,0
  13755.  
  13756.  dc.w $1001,$ff00
  13757.  dc.w intreq,$11
  13758.  
  13759. PALETTESPACE:
  13760.  dcb.l 528,$1fe0000
  13761.  
  13762.  dc.w $2001,$ff00
  13763.  
  13764.  dc.w bpl1pth
  13765. pl1h
  13766.  dc.w 0
  13767.  
  13768.  dc.w bpl1ptl
  13769. pl1l
  13770.  dc.w 0
  13771.  
  13772.  dc.w bpl2pth
  13773. pl2h
  13774.  dc.w 0
  13775.  
  13776.  dc.w bpl2ptl
  13777. pl2l
  13778.  dc.w 0
  13779.  
  13780.  dc.w bpl3pth
  13781. pl3h
  13782.  dc.w 0
  13783.  
  13784.  dc.w bpl3ptl
  13785. pl3l
  13786.  dc.w 0
  13787.  
  13788.  dc.w bpl4pth
  13789. pl4h
  13790.  dc.w 0
  13791.  
  13792.  dc.w bpl4ptl
  13793. pl4l
  13794.  dc.w 0
  13795.  
  13796.  dc.w bpl5pth
  13797. pl5h
  13798.  dc.w 0
  13799.  
  13800.  dc.w bpl5ptl
  13801. pl5l
  13802.  dc.w 0
  13803.  
  13804.  dc.w bpl6pth
  13805. pl6h
  13806.  dc.w 0
  13807.  
  13808.  dc.w bpl6ptl
  13809. pl6l
  13810.  dc.w 0
  13811.  
  13812.  dc.w bpl7pth
  13813. pl7h
  13814.  dc.w 0
  13815.  
  13816.  dc.w bpl7ptl
  13817. pl7l
  13818.  dc.w 0
  13819.  
  13820.  dc.w bpl8pth
  13821. pl8h
  13822.  dc.w 0
  13823.  
  13824.  dc.w bpl8ptl
  13825. pl8l
  13826.  dc.w 0
  13827.  
  13828.  
  13829. val SET $2c
  13830. SCRMODULOS:
  13831.  REPT 232
  13832.  dc.b val,1,$ff,$fe
  13833.  dc.w $108,0
  13834.  dc.w $10a,0
  13835.  dc.b val,$df,$ff,$fe
  13836. val SET (val+1)&$ff
  13837.  ENDR
  13838.  
  13839.  dc.w $108,0,$10a,0
  13840.  dc.w $2401,$ff00
  13841.  dc.w ddfstop,$c8
  13842.  dc.w bplcon0,$9201
  13843.  dc.w bpl1ptl
  13844. scroll:
  13845.  dc.w 0
  13846.  dc.w bpl1pth
  13847. scrolh:
  13848.  dc.w 0
  13849.  
  13850.  dc.w $106,$c40
  13851.  dc.w $180,0
  13852.  dc.w $182,$f0
  13853. ; dc.w $108,40
  13854. ; dc.w $10a,40
  13855.  
  13856. ; dc.w $80
  13857. ;JUMPBACKH:
  13858. ; dc.w 0
  13859. ; dc.w $82
  13860. ;JUMPBACKL:
  13861. ; dc.w 0
  13862.  
  13863. ; dc.w $8a,0
  13864.  
  13865.  dc.w $ffff,$fffe
  13866.  dc.w $ffff,$fffe
  13867.  
  13868. PALETTEBIT:
  13869.  incbin "256palette"
  13870.  dc.w $ffff,$fffe
  13871.  
  13872. yposcop:
  13873. ; dc.w $2a11,$fffe
  13874. ; dc.w $8a,0
  13875.  
  13876. ; ds.l 104*12
  13877.  
  13878. ;colbars:
  13879. ;val SET $2a
  13880. ; dcb.l 104*80,$1fe0000
  13881. ; dc.w $106,$c42
  13882. ; 
  13883. ; dc.w $80
  13884. ;pch1:
  13885. ; dc.w 0
  13886. ; dc.w $82
  13887. ;pcl1:
  13888. ; dc.w 0 
  13889. ; 
  13890. ; dc.w $88,0
  13891. ; 
  13892. ; dc.w $ffff,$fffe       ; End copper list.
  13893.  
  13894. ; ds.l 104*12
  13895.  
  13896.  
  13897. ;colbars2:
  13898. ;val SET $2a
  13899. ; dcb.l 104*80,$1fe0000
  13900. ; 
  13901. ; dc.w $106,$c42
  13902. ; 
  13903. ; dc.w $80
  13904. ;pch2:
  13905. ; dc.w 0
  13906. ; dc.w $82
  13907. ;pcl2:
  13908. ; dc.w 0
  13909. ; 
  13910. ; dc.w $88,0
  13911. ; 
  13912. ; dc.w $ffff,$fffe       ; End copper list.
  13913.  
  13914. ; ds.l 104*10
  13915.  
  13916. NullCopper:
  13917.  dc.w $ffff,$fffe
  13918.  
  13919. hitcol: dc.l 0
  13920.  
  13921. old: dc.l 0
  13922.  
  13923.  CNOP 0,64
  13924. SCROLLSCRN: ds.l 20*16
  13925.  
  13926. SCROLLOFFSET: dc.w 0
  13927. SCROLLTIMER: dc.w 100
  13928. SCROLLDIRECTION: dc.w 1
  13929. SCROLLXPOS: dc.w 0
  13930. SCROLLPOINTER: dc.l testscroll
  13931. ENDSCROLL: dc.l endtestscroll
  13932.  
  13933. testscroll:
  13934. ;      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  13935. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  13936. ; dc.b "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ                            "
  13937. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  13938.  
  13939. BLANKSCROLL:
  13940.  dc.b "                                                                                "
  13941. endtestscroll: 
  13942.  
  13943. prot5: dc.w 0
  13944. PanelCop:
  13945.  
  13946.  dc.w $80
  13947. och:
  13948.  dc.w 0
  13949.  dc.w $82
  13950. ocl:
  13951.  dc.w 0
  13952.  
  13953. statskip:
  13954.  dc.w $1fe,0
  13955.  dc.w $1fe,0
  13956.  
  13957.  dc.w $10c,0
  13958.  dc.w bplcon0,$1201
  13959.  dc.w bpl1ptl
  13960. n1l:
  13961.  dc.w 0
  13962.  dc.w bpl1pth
  13963. n1h:
  13964.  dc.w 0
  13965.  dc.w $108,-24
  13966. ; incbin "Panelpal"
  13967.  
  13968.  dc.w bpl2pth
  13969. p2h
  13970.  dc.w 0
  13971.  
  13972.  dc.w bpl2ptl
  13973. p2l
  13974.  dc.w 0
  13975.  
  13976.  dc.w bpl3pth
  13977. p3h
  13978.  dc.w 0
  13979.  
  13980.  dc.w bpl3ptl
  13981. p3l
  13982.  dc.w 0
  13983.  
  13984.  dc.w bpl4pth
  13985. p4h
  13986.  dc.w 0
  13987.  dc.w bpl4ptl
  13988. p4l
  13989.  dc.w 0
  13990.  dc.w bpl5pth
  13991. p5h
  13992.  dc.w 0
  13993.  dc.w bpl5ptl
  13994. p5l
  13995.  dc.w 0
  13996.  dc.w bpl6pth
  13997. p6h
  13998.  dc.w 0
  13999.  dc.w bpl6ptl
  14000. p6l
  14001.  dc.w 0
  14002.  dc.w bpl7pth
  14003. p7h
  14004.  dc.w 0
  14005.  dc.w bpl7ptl
  14006. p7l
  14007.  dc.w 0
  14008.  dc.w bpl8pth
  14009. p8h
  14010.  dc.w 0
  14011.  dc.w bpl8ptl
  14012. p8l
  14013.  dc.w 0
  14014.  
  14015.  
  14016.  dc.w ddfstart,$38
  14017.  dc.w ddfstop,$b8
  14018.  dc.w diwstart,$2c81
  14019.  dc.w diwstop,$2cc1
  14020.  
  14021.  dc.w bplcon0
  14022. Panelcon: dc.w $0211
  14023.  dc.w bpl1pth
  14024. p1h
  14025.  dc.w 0
  14026.  
  14027.  dc.w bpl1ptl
  14028. p1l
  14029.  dc.w 0
  14030.  
  14031.  
  14032.  dc.w $108,40*7
  14033.  dc.w $10a,40*7
  14034.  
  14035.  dc.w $ffff,$fffe
  14036.  
  14037.  dc.w $180,$fff
  14038.  
  14039.  
  14040.  dc.w $f801,$ff00
  14041.  dc.w col1,$50
  14042.  dc.w $f901,$ff00
  14043.  dc.w col1,$90
  14044.  dc.w $fa01,$ff00
  14045.  dc.w col1,$f0
  14046.  dc.w $fb01,$ff00
  14047.  dc.w col1,$f0
  14048.  dc.w $fc01,$ff00
  14049.  dc.w col1,$90
  14050.  dc.w $fd01,$ff00
  14051.  dc.w col1,$50
  14052.  
  14053.  dc.w $fe01,$ff00
  14054.  dc.w col1,$fff
  14055.  
  14056.  dc.w $ffdf,$fffe
  14057.  dc.w $a01,$ff00
  14058.  dc.w bplcon0,$201
  14059.  
  14060. ; incbin "faces2cols"
  14061.  dc.w bpl1pth
  14062. f1h
  14063.  dc.w 0
  14064.  
  14065.  dc.w bpl1ptl
  14066. f1l
  14067.  dc.w 0
  14068.  
  14069.  dc.w bpl2pth
  14070. f2h
  14071.  dc.w 0
  14072.  
  14073.  dc.w bpl2ptl
  14074. f2l
  14075.  dc.w 0
  14076.  
  14077.  dc.w bpl3pth
  14078. f3h
  14079.  dc.w 0
  14080.  
  14081.  dc.w bpl3ptl
  14082. f3l
  14083.  dc.w 0
  14084.  
  14085.  dc.w bpl4pth
  14086. f4h
  14087.  dc.w 0
  14088.  dc.w bpl4ptl
  14089. f4l
  14090.  dc.w 0
  14091.  
  14092.  dc.w bpl5pth
  14093. f5h
  14094.  dc.w 0
  14095.  dc.w bpl5ptl
  14096. f5l
  14097.  dc.w 0
  14098.  
  14099.  dc.w $0c01,$ff00
  14100.  dc.w bplcon0,$5201
  14101.   
  14102.  dc.w $ffff,$fffe
  14103.  
  14104.  cnop 0,64
  14105. FacePlace:
  14106. ; ds.l 6*32*5
  14107.  
  14108. TEXTSCRN: dc.l 0
  14109.  
  14110. TEXTCOP:
  14111.  dc.w intreq,$8030
  14112.  
  14113.  dc.w spr0ptl
  14114. txs0l:
  14115.  dc.w 0
  14116.  dc.w spr0pth
  14117. txs0h:
  14118.  dc.w 0
  14119.  dc.w spr1ptl
  14120. txs1l:
  14121.  dc.w 0
  14122.  dc.w spr1pth
  14123. txs1h:
  14124.  dc.w 0
  14125.  dc.w spr2ptl
  14126. txs2l:
  14127.  dc.w 0
  14128.  dc.w spr2pth
  14129. txs2h:
  14130.  dc.w 0
  14131.  dc.w spr3ptl
  14132. txs3l:
  14133.  dc.w 0
  14134.  dc.w spr3pth
  14135. txs3h:
  14136.  dc.w 0
  14137.  dc.w spr4ptl
  14138. txs4l:
  14139.  dc.w 0
  14140.  dc.w spr4pth
  14141. txs4h:
  14142.  dc.w 0
  14143.  dc.w spr5ptl
  14144. txs5l:
  14145.  dc.w 0
  14146.  dc.w spr5pth
  14147. txs5h:
  14148.  dc.w 0
  14149.  dc.w spr6ptl
  14150. txs6l:
  14151.  dc.w 0
  14152.  dc.w spr6pth
  14153. txs6h:
  14154.  dc.w 0
  14155.  dc.w spr7ptl
  14156. txs7l:
  14157.  dc.w 0
  14158.  dc.w spr7pth
  14159. txs7h:
  14160.  dc.w 0
  14161.  
  14162.  
  14163.  dc.w $10c,$0088
  14164.  
  14165.  dc.w $1fc,$f
  14166.  dc.w diwstart,$2c81    ; Top left corner of screen.
  14167.  dc.w diwstop
  14168. BOTOFTXT:
  14169.  dc.w $2cc1     ; Bottom right corner of screen.
  14170.  dc.w ddfstart,$38      ; Data fetch start.
  14171.  dc.w ddfstop,$c8       ; Data fetch stop.
  14172.  
  14173.  dc.w bplcon0
  14174. TSCP:
  14175.  dc.w $a201
  14176.  
  14177.  dc.w $106,$c40
  14178.  
  14179.  dc.w $2a01,$ff00
  14180.  
  14181.  dc.w col0,0
  14182.  dc.w col1
  14183. TOPLET:
  14184. TXTCOLL:
  14185.  dc.w 0
  14186.   dc.w col2
  14187. BOTLET:
  14188. TOPCOLL:
  14189.  dc.w 0
  14190.  dc.w col3
  14191. ALLTEXT:
  14192. MIXCOLL:
  14193.  dc.w $fff
  14194.  dc.w $106,$e40
  14195.  dc.w col3
  14196. ALLTEXTLOW:
  14197.  dc.w $0
  14198.  
  14199.  
  14200.  dc.w bpl1pth
  14201. TSPTh:
  14202.  dc.w 0
  14203.  dc.w bpl1ptl
  14204. TSPTl:
  14205.  dc.w 0
  14206.  
  14207.  dc.w bpl2pth
  14208. TSPTh2:
  14209.  dc.w 0
  14210.  dc.w bpl2ptl
  14211. TSPTl2:
  14212.  dc.w 0
  14213.  
  14214.  
  14215.  dc.w $108,0
  14216.  dc.w $10a,0
  14217.  
  14218.  dc.w $ffff,$fffe
  14219.  
  14220. ********************************************
  14221. * Stuff you don't have to worry about yet. *
  14222. ********************************************
  14223.  
  14224. closeeverything:
  14225.  
  14226. ; jsr mt_end
  14227.  
  14228.  move.l #nullcop,d0
  14229. ; move.l old,d0
  14230.  
  14231.  
  14232. ;charlie  
  14233.  move.l d0,$dff080     ; Restore old copper list.
  14234.  move.w d0,ocl
  14235.  swap d0
  14236.  move.w d0,och
  14237.  
  14238. ; move.l doslib,a6
  14239. ; move.l #4,d1
  14240. ; jsr -198(a6)
  14241.  
  14242. ; move.l doslib,d0
  14243. ; move.l d0,a1
  14244. ; move.l 4.w,a6
  14245. ; jsr CloseLib(a6)
  14246.  
  14247.  move.l #$dff000,a6
  14248.  move.w #$8020,dmacon(a6)
  14249.  move.w #$f,dmacon(a6)
  14250.  
  14251. ; move.l 4.w,a6
  14252. ; lea VBLANKInt,a1
  14253. ; moveq #INTB_COPER,d0
  14254. ; jsr _LVORemIntServer(a6)
  14255.  
  14256. ; IFEQ CD32VER
  14257. ; move.l OLDKINT,$68.w
  14258. ; ENDC
  14259. ; move.w saveinters,d0
  14260. ; or.w #$c000,d0
  14261. ; move.w d0,intena(a6)
  14262.  clr.w $dff0a8
  14263.  clr.w $dff0b8
  14264.  clr.w $dff0c8
  14265.  clr.w $dff0d8
  14266.  
  14267.  
  14268. ; move.l oldview,a1
  14269. ; move.l a1,d0
  14270. ; move.l gfxbase,a6
  14271. ; jsr -$de(a6)
  14272.  
  14273. ; cmp.b #'s',mors
  14274. ; beq.s leaveold
  14275. ; move.w #$f8e,$dff1dc
  14276. ;leaveold:
  14277.  
  14278.  jsr RELEASELEVELMEM
  14279.  jsr RELEASESCRNMEM
  14280.  
  14281.  move.l #0,d0
  14282.  
  14283.  rts
  14284.  
  14285.  
  14286.  
  14287. intbase: dc.l 0
  14288. gfxbase: dc.l 0
  14289. oldview: dc.l 0
  14290. oldcopper: dc.l 0
  14291.  
  14292. stuff:
  14293.  
  14294.     Lea    gfxname(pc),a1    
  14295.     Moveq.l    #0,d0
  14296.     Move.l    $4.w,a6    
  14297.     Jsr    -$228(a6)
  14298.     add.w d1,RVAL1
  14299.     Move.l     d0,gfxbase
  14300.     Move.l    d0,a6                Use As Base Reg
  14301.     Move.l    34(a6),oldview
  14302.     move.l 38(a6),old
  14303.     move.l 38(a6),oldcopper
  14304.     rts
  14305.  
  14306. gfxname dc.b "graphics.library",0
  14307.  even
  14308. INTUNAME    dc.b    "intuition.library",0
  14309.  
  14310.  even
  14311.  
  14312.  
  14313.  cnop 0,64
  14314.  
  14315. Panel:
  14316.  dc.l 0
  14317.  
  14318. TimerScr: 
  14319. ;ds.b 40*64
  14320.  
  14321. scrntab:
  14322.  ds.b 16
  14323. val SET 32
  14324.  REPT 96
  14325.  dc.b val,val,val
  14326. val SET val+1
  14327.  ENDR
  14328.  ds.b 16
  14329.  
  14330. smallscrntab:
  14331. val SET 32
  14332.  REPT 96
  14333.  dc.b val,val
  14334. val SET val+1
  14335.  ENDR
  14336.  
  14337.  cnop 0,64
  14338. scrn:
  14339.  dc.l 0
  14340. ; incbin "ab3:includes/newborderRAW"
  14341. ; ds.b 80
  14342. scrn2:
  14343.  dc.l 0
  14344.  
  14345. ;flib:
  14346. ; incbin "ab3:includes/newborderRAW"
  14347. ; ds.b 80
  14348. ;flib2:
  14349. ; incbin "ab3:includes/newborderRAW"
  14350. ; ds.b 80
  14351.  
  14352. ; incbin "ab3:includes/newborderRAW"
  14353. ; ds.b 80
  14354.  
  14355. SCRNDRAWPT: dc.l 0
  14356. SCRNSHOWPT: dc.l 0
  14357.  
  14358. ; dcb.l 8,$33333333
  14359. ; dc.l 0
  14360. ; dc.l 0
  14361. ; 
  14362. ; dcb.l 8,$0f0f0f0f
  14363. ; dc.l 0
  14364. ; dc.l 0
  14365. ;
  14366. ; dcb.l 8,$00ff00ff
  14367. ; dc.l 0
  14368. ; dc.l 0
  14369. ; 
  14370. ; dcb.l 8,$0000ffff
  14371. ; dc.l 0
  14372. ; dc.l 0
  14373. ; 
  14374. ; dc.l 0,-1,0,-1,0,-1,0,-1
  14375. ; dc.l 0
  14376. ; dc.l 0
  14377. ; 
  14378. ; dc.l -1,-1,0,0,-1,-1,0,0
  14379. ; dc.l 0
  14380. ; dc.l 0
  14381. ; 
  14382. ; dc.l 0,0,-1,-1,-1,-1,-1,-1
  14383. ; dc.l 0
  14384. ; dc.l 0
  14385.  
  14386. NumTimes: dc.l 0
  14387. TimeCount: dc.l 0
  14388. oldtime: dc.l 0
  14389. counting: dc.b 0
  14390. oktodisplay: dc.b 0
  14391.  
  14392. INITTIMER:
  14393.  move.l #0,TimeCount
  14394.  move.l #0,NumTimes
  14395.  rts
  14396.  
  14397. STARTCOUNT:
  14398.  move.l d0,-(a7)
  14399.  move.l $dff004,d0
  14400.  and.l #$1ffff,d0
  14401.  move.l d0,oldtime
  14402.  st counting
  14403.  move.l (a7)+,d0
  14404.  rts
  14405.  
  14406. STOPCOUNT:
  14407.  move.l d0,-(a7)
  14408.  move.l $dff004,d0
  14409.  and.l #$1ffff,d0
  14410.  
  14411.  sub.l oldtime,d0
  14412.  cmp.l #-256,d0
  14413.  bge.s okcount
  14414.  add.l #313*256,d0
  14415. okcount:
  14416.  add.l d0,TimeCount
  14417.  addq.l #1,NumTimes
  14418.  clr.b counting
  14419.  move.l (a7)+,d0
  14420.  rts
  14421.  
  14422. STOPCOUNTNOADD:
  14423.  move.l d0,-(a7)
  14424.  move.l $dff004,d0
  14425.  and.l #$1ffff,d0
  14426.  
  14427.  sub.l oldtime,d0
  14428.  cmp.l #-256,d0
  14429.  bge.s okcount2
  14430.  add.l #313*256,d0
  14431. okcount2:
  14432.  add.l d0,TimeCount
  14433.  clr.b counting
  14434.  move.l (a7)+,d0
  14435.  rts
  14436.  
  14437. maxbot: dc.w 0
  14438. tstneg: dc.l 0
  14439.  
  14440. STOPTIMER:
  14441.  st oktodisplay
  14442.  rts
  14443.  
  14444. digits: incbin "numbers.inc"
  14445.  
  14446. COMPACTMAP: ds.l 257
  14447.  
  14448. BIGMAP: ds.l 256*10
  14449.  
  14450.  Section Sounds,CODE_C
  14451.  
  14452. nullcop:
  14453.  dc.w $106,$c40
  14454.  dc.w $180,0 
  14455.  dc.w $100,$0
  14456.  dc.w $ffff,$fffe
  14457.  
  14458. Scream:
  14459. ; incbin "ab3:sounds/Scream"
  14460. ; ds.w 100
  14461. EndScream:
  14462. LowScream:
  14463. ; incbin "ab3:sounds/LowScream"
  14464. ; ds.w 100
  14465. EndLowScream:
  14466. BaddieGun:
  14467. ; incbin "ab3:sounds/BaddieGun"
  14468. EndBaddieGun:
  14469. bass:
  14470. ; incbin "ab3:sounds/backbass+drum"
  14471. bassend:
  14472. Shoot:
  14473. ; incbin "ab3:sounds/fire!"
  14474. EndShoot:
  14475. Munch:
  14476. ; incbin "ab3:sounds/munch"
  14477. EndMunch:
  14478. PooGun:
  14479. ; incbin "ab3:sounds/shoot.dm"
  14480. EndPooGun:
  14481. Collect:
  14482. ; incbin "ab3:sounds/collect"
  14483. EndCollect:
  14484. DoorNoise:
  14485. ; incbin "ab3:sounds/newdoor"
  14486. EndDoorNoise:
  14487. Stomp:
  14488. ; incbin "ab3:sounds/footstep3"
  14489. EndStomp:
  14490. SwitchNoise:
  14491. ; incbin "ab3:sounds/switch"
  14492. EndSwitch:
  14493. Reload:
  14494. ; incbin "ab3:sounds/switch1.SFX"
  14495. EndReload:
  14496.  
  14497. CHEATFRAME:
  14498.  dc.b 26,20,33,27,17,12
  14499. ENDCHEAT:
  14500.  
  14501. NoAmmo:
  14502. ; incbin "ab3:sounds/noammo"
  14503. EndNoAmmo:
  14504. Splotch:
  14505. ; incbin "ab3:sounds/splotch"
  14506. EndSplotch:
  14507. SplatPop:
  14508. ; incbin "ab3:sounds/splatpop"
  14509. EndSplatPop:
  14510. Boom:
  14511. ; incbin "ab3:sounds/boom"
  14512. EndBoom:
  14513. Hiss:
  14514. ; incbin "ab3:sounds/newhiss"
  14515. EndHiss:
  14516. Howl1:
  14517. ; incbin "ab3:sounds/howl1"
  14518. EndHowl1:
  14519. Howl2:
  14520. ; incbin "ab3:sounds/howl2"
  14521. EndHowl2:
  14522. Pant:
  14523. ; incbin "ab3:sounds/pant"
  14524. EndPant:
  14525. Whoosh:
  14526. ; incbin "ab3:sounds/whoosh"
  14527. EndWhoosh:
  14528. ROAR:
  14529. ; incbin "ab3:sounds/bigscream"
  14530. EndROAR
  14531. whoosh:
  14532. ; incbin "ab3:sounds/flame"
  14533. Endwhoosh:
  14534.  SECTION music,code_c
  14535.  
  14536. UseAllChannels: dc.w 0
  14537.  
  14538. mt_init:
  14539.     move.l    mt_data,a0
  14540.     move.l    a0,a1
  14541.     add.l    #$3b8,a1
  14542.     moveq    #$7f,d0
  14543.     moveq    #0,d1
  14544. mt_loop:move.l    d1,d2
  14545.     subq.w    #1,d0
  14546. mt_lop2:move.b    (a1)+,d1
  14547.     cmp.b    d2,d1
  14548.     bgt.s    mt_loop
  14549.     dbf    d0,mt_lop2
  14550.     addq.b    #1,d2
  14551.  
  14552.     lea    mt_samplestarts(pc),a1
  14553.     asl.l    #8,d2
  14554.     asl.l    #2,d2
  14555.     add.l    #$43c,d2
  14556.     add.l    a0,d2
  14557.     move.l    d2,a2
  14558.     moveq    #$1e,d0
  14559. mt_lop3:
  14560.     clr.l    (a2)
  14561.     move.l    a2,(a1)+
  14562.     moveq    #0,d1
  14563.     move.w    42(a0),d1
  14564.     asl.l    #1,d1
  14565.     add.l    d1,a2
  14566.     add.l    #$1e,a0
  14567.     dbf    d0,mt_lop3
  14568.  
  14569.     or.b    #$2,$bfe001
  14570.     move.b    #$6,mt_speed
  14571.     clr.w    $dff0a8
  14572.     clr.w    $dff0b8
  14573.     clr.w    $dff0c8
  14574.     clr.w    $dff0d8
  14575.     clr.b    mt_songpos
  14576.     clr.b    mt_counter
  14577.     clr.w    mt_pattpos
  14578.     rts
  14579.  
  14580. mt_end:    clr.w    $dff0a8
  14581.     clr.w    $dff0b8
  14582.     clr.w    $dff0c8
  14583.     clr.w    $dff0d8
  14584.     move.w    #$f,$dff096
  14585.     rts
  14586.  
  14587. mt_music:
  14588.     movem.l    d0-d4/a0-a3/a5-a6,-(a7)
  14589.     move.l    mt_data,a0
  14590.     addq.b    #$1,mt_counter
  14591.     move.b    mt_counter,D0
  14592.     cmp.b    mt_speed,D0
  14593.     blt.s    mt_nonew
  14594.     clr.b    mt_counter
  14595.     bra    mt_getnew
  14596.  
  14597. mt_nonew:
  14598.     lea    mt_voice1(pc),a6
  14599.     lea    $dff0a0,a5
  14600.     bsr    mt_checkcom
  14601.     tst.b UseAllChannels
  14602.     beq mt_endr
  14603.     lea    mt_voice2(pc),a6
  14604.     lea    $dff0b0,a5
  14605.     bsr    mt_checkcom
  14606.      lea    mt_voice3(pc),a6
  14607.     lea    $dff0c0,a5
  14608.     bsr    mt_checkcom
  14609.     lea    mt_voice4(pc),a6
  14610.     lea    $dff0d0,a5
  14611.     bsr    mt_checkcom
  14612.     bra    mt_endr
  14613.  
  14614. mt_arpeggio:
  14615.     moveq    #0,d0
  14616.     move.b    mt_counter,d0
  14617.     divs    #$3,d0
  14618.     swap    d0
  14619.     cmp.w    #$0,d0
  14620.     beq.s    mt_arp2
  14621.     cmp.w    #$2,d0
  14622.     beq.s    mt_arp1
  14623.  
  14624.     moveq    #0,d0
  14625.     move.b    $3(a6),d0
  14626.     lsr.b    #4,d0
  14627.     bra.s    mt_arp3
  14628. mt_arp1:moveq    #0,d0
  14629.     move.b    $3(a6),d0
  14630.     and.b    #$f,d0
  14631.     bra.s    mt_arp3
  14632. mt_arp2:move.w    $10(a6),d2
  14633.     bra.s    mt_arp4
  14634. mt_arp3:asl.w    #1,d0
  14635.     moveq    #0,d1
  14636.     move.w    $10(a6),d1
  14637.     lea    mt_periods(pc),a0
  14638.     moveq    #$24,d7
  14639. mt_arploop:
  14640.     move.w    (a0,d0.w),d2
  14641.     cmp.w    (a0),d1
  14642.     bge.s    mt_arp4
  14643.     addq.l    #2,a0
  14644.     dbf    d7,mt_arploop
  14645.     rts
  14646. mt_arp4:move.w    d2,$6(a5)
  14647.     rts
  14648.  
  14649. mt_getnew:
  14650.     move.l    mt_data,a0
  14651.     move.l    a0,a3
  14652.     move.l    a0,a2
  14653.     add.l    #$c,a3
  14654.     add.l    #$3b8,a2
  14655.     add.l    #$43c,a0
  14656.  
  14657.     moveq    #0,d0
  14658.     move.l    d0,d1
  14659.     move.b    mt_songpos,d0
  14660.     move.b    (a2,d0.w),d1
  14661.     asl.l    #8,d1
  14662.     asl.l    #2,d1
  14663.     add.w    mt_pattpos,d1
  14664.     clr.w    mt_dmacon
  14665.  
  14666.     lea    $dff0a0,a5
  14667.     lea    mt_voice1(pc),a6
  14668.     bsr    mt_playvoice
  14669.     tst.b UseAllChannels
  14670.     beq mt_setdma
  14671.     lea    $dff0b0,a5
  14672.     lea    mt_voice2(pc),a6
  14673.     bsr    mt_playvoice
  14674.     lea    $dff0c0,a5
  14675.     lea    mt_voice3(pc),a6
  14676.     bsr    mt_playvoice
  14677.     lea    $dff0d0,a5
  14678.     lea    mt_voice4(pc),a6
  14679.     bsr    mt_playvoice
  14680.     bra    mt_setdma
  14681.  
  14682. PROTCALC:
  14683. ;    include "ab3:source_4000/protcalc.s"
  14684.     incbin "ab3:includes/protcalc.bin"
  14685. ENDPROTCALC:
  14686.  
  14687. mt_playvoice:
  14688.     move.l    (a0,d1.l),(a6)
  14689.     addq.l    #4,d1
  14690.     moveq    #0,d2
  14691.     move.b    $2(a6),d2
  14692.     and.b    #$f0,d2
  14693.     lsr.b    #4,d2
  14694.     move.b    (a6),d0
  14695.     and.b    #$f0,d0
  14696.     or.b    d0,d2
  14697.     tst.b    d2
  14698.     beq.s    mt_setregs
  14699.     moveq    #0,d3
  14700.     lea    mt_samplestarts(pc),a1
  14701.     move.l    d2,d4
  14702.     subq.l    #$1,d2
  14703.     asl.l    #2,d2
  14704.     mulu    #$1e,d4
  14705.     move.l    (a1,d2.l),$4(a6)
  14706.     move.w    (a3,d4.l),$8(a6)
  14707.     move.w    $2(a3,d4.l),$12(a6)
  14708.     move.w    $4(a3,d4.l),d3
  14709.     tst.w    d3
  14710.     beq.s    mt_noloop
  14711.     move.l    $4(a6),d2
  14712.     asl.w    #1,d3
  14713.     add.l    d3,d2
  14714.     move.l    d2,$a(a6)
  14715.     move.w    $4(a3,d4.l),d0
  14716.     add.w    $6(a3,d4.l),d0
  14717.     move.w    d0,8(a6)
  14718.     move.w    $6(a3,d4.l),$e(a6)
  14719.     move.w    $12(a6),d0
  14720.     move.w d0,$8(a5)
  14721.     bra.s    mt_setregs
  14722. mt_noloop:
  14723.     move.l    $4(a6),d2
  14724.     add.l    d3,d2
  14725.     move.l    d2,$a(a6)
  14726.     move.w    $6(a3,d4.l),$e(a6)
  14727.     move.w    $12(a6),d0
  14728.     move.w d0,$8(a5)
  14729. mt_setregs:
  14730.     move.w    (a6),d0
  14731.     and.w    #$fff,d0
  14732.     beq    mt_checkcom2
  14733.     move.b    $2(a6),d0
  14734.     and.b    #$F,d0
  14735.     cmp.b    #$3,d0
  14736.     bne.s    mt_setperiod
  14737.     bsr    mt_setmyport
  14738.     bra    mt_checkcom2
  14739. mt_setperiod:
  14740.     move.w    (a6),$10(a6)
  14741.     and.w    #$fff,$10(a6)
  14742.     move.w    $14(a6),d0
  14743.     move.w    d0,$dff096
  14744.     clr.b    $1b(a6)
  14745.  
  14746.     move.l    $4(a6),(a5)
  14747.     move.w    $8(a6),$4(a5)
  14748.     move.w    $10(a6),d0
  14749.     and.w    #$fff,d0
  14750.     move.w    d0,$6(a5)
  14751.     move.w    $14(a6),d0
  14752.     or.w    d0,mt_dmacon
  14753.     bra    mt_checkcom2
  14754.  
  14755. mt_setdma:
  14756.      move.w #250,d0
  14757. mt_wait:
  14758.      add.w #1,testchip
  14759.      dbra d0,mt_wait
  14760.     move.w    mt_dmacon,d0
  14761.     or.w    #$8000,d0
  14762.     tst.b UseAllChannels
  14763.     bne.s .splib
  14764.     and.w #%1111111111110001,d0
  14765. .splib
  14766.     move.w    d0,$dff096
  14767.     move.w #250,d0
  14768. mt_wait2:
  14769.     add.w #1,testchip
  14770.     dbra    d0,mt_wait2
  14771.     lea    $dff000,a5
  14772.     tst.b UseAllChannels
  14773.     beq.s noall
  14774.     lea    mt_voice4(pc),a6
  14775.     move.l    $a(a6),$d0(a5)
  14776.     move.w    $e(a6),$d4(a5)
  14777.     lea    mt_voice3(pc),a6
  14778.     move.l    $a(a6),$c0(a5)
  14779.     move.w    $e(a6),$c4(a5)
  14780.     lea    mt_voice2(pc),a6
  14781.     move.l    $a(a6),$b0(a5)
  14782.     move.w    $e(a6),$b4(a5)
  14783. noall:
  14784.     lea    mt_voice1(pc),a6
  14785.     move.l    $a(a6),$a0(a5)
  14786.     move.w    $e(a6),$a4(a5)
  14787.  
  14788.     add.w    #$10,mt_pattpos
  14789.     cmp.w    #$400,mt_pattpos
  14790.     bne.s    mt_endr
  14791. mt_nex:    clr.w    mt_pattpos
  14792.     clr.b    mt_break
  14793.     addq.b    #1,mt_songpos
  14794.     and.b    #$7f,mt_songpos
  14795.     move.b    mt_songpos,d1
  14796. ;    cmp.b    mt_data+$3b6,d1
  14797. ;    bne.s    mt_endr
  14798. ;    move.b    mt_data+$3b7,mt_songpos
  14799. mt_endr:tst.b    mt_break
  14800.     bne.s    mt_nex
  14801.     movem.l    (a7)+,d0-d4/a0-a3/a5-a6
  14802.     rts
  14803.  
  14804. mt_setmyport:
  14805.     move.w    (a6),d2
  14806.     and.w    #$fff,d2
  14807.     move.w    d2,$18(a6)
  14808.     move.w    $10(a6),d0
  14809.     clr.b    $16(a6)
  14810.     cmp.w    d0,d2
  14811.     beq.s    mt_clrport
  14812.     bge.s    mt_rt
  14813.     move.b    #$1,$16(a6)
  14814.     rts
  14815. mt_clrport:
  14816.     clr.w    $18(a6)
  14817. mt_rt:    rts
  14818.  
  14819. CODESTORE: dc.l 0
  14820.  
  14821. mt_myport:
  14822.     move.b    $3(a6),d0
  14823.     beq.s    mt_myslide
  14824.     move.b    d0,$17(a6)
  14825.     clr.b    $3(a6)
  14826. mt_myslide:
  14827.     tst.w    $18(a6)
  14828.     beq.s    mt_rt
  14829.     moveq    #0,d0
  14830.     move.b    $17(a6),d0
  14831.     tst.b    $16(a6)
  14832.     bne.s    mt_mysub
  14833.     add.w    d0,$10(a6)
  14834.     move.w    $18(a6),d0
  14835.     cmp.w    $10(a6),d0
  14836.     bgt.s    mt_myok
  14837.     move.w    $18(a6),$10(a6)
  14838.     clr.w    $18(a6)
  14839. mt_myok:move.w    $10(a6),$6(a5)
  14840.     rts
  14841. mt_mysub:
  14842.     sub.w    d0,$10(a6)
  14843.     move.w    $18(a6),d0
  14844.     cmp.w    $10(a6),d0
  14845.     blt.s    mt_myok
  14846.     move.w    $18(a6),$10(a6)
  14847.     clr.w    $18(a6)
  14848.     move.w    $10(a6),$6(a5)
  14849.     rts
  14850.  
  14851. mt_vib:    move.b    $3(a6),d0
  14852.     beq.s    mt_vi
  14853.     move.b    d0,$1a(a6)
  14854.  
  14855. mt_vi:    move.b    $1b(a6),d0
  14856.     lea    mt_sin(pc),a4
  14857.     lsr.w    #$2,d0
  14858.     and.w    #$1f,d0
  14859.     moveq    #0,d2
  14860.     move.b    (a4,d0.w),d2
  14861.     move.b    $1a(a6),d0
  14862.     and.w    #$f,d0
  14863.     mulu    d0,d2
  14864.     lsr.w    #$6,d2
  14865.     move.w    $10(a6),d0
  14866.     tst.b    $1b(a6)
  14867.     bmi.s    mt_vibmin
  14868.     add.w    d2,d0
  14869.     bra.s    mt_vib2
  14870. mt_vibmin:
  14871.     sub.w    d2,d0
  14872. mt_vib2:move.w    d0,$6(a5)
  14873.     move.b    $1a(a6),d0
  14874.     lsr.w    #$2,d0
  14875.     and.w    #$3c,d0
  14876.     add.b    d0,$1b(a6)
  14877.     rts
  14878.  
  14879. mt_nop:    move.w    $10(a6),$6(a5)
  14880.     rts
  14881.  
  14882.  
  14883. mt_checkcom:
  14884.     move.w    $2(a6),d0
  14885.     and.w    #$fff,d0
  14886.     beq.s    mt_nop
  14887.     move.b    $2(a6),d0
  14888.     and.b    #$f,d0
  14889.     tst.b    d0
  14890.     beq    mt_arpeggio
  14891.     cmp.b    #$1,d0
  14892.     beq.s    mt_portup
  14893.     cmp.b    #$2,d0
  14894.     beq    mt_portdown
  14895.     cmp.b    #$3,d0
  14896.     beq    mt_myport
  14897.     cmp.b    #$4,d0
  14898.     beq    mt_vib
  14899.     move.w    $10(a6),$6(a5)
  14900.     cmp.b    #$a,d0
  14901.     beq.s    mt_volslide
  14902.     rts
  14903.  
  14904. mt_volslide:
  14905.     moveq    #0,d0
  14906.     move.b    $3(a6),d0
  14907.     lsr.b    #4,d0
  14908.     tst.b    d0
  14909.     beq.s    mt_voldown
  14910.     add.w    d0,$12(a6)
  14911.     cmp.w    #$40,$12(a6)
  14912.     bmi.s    mt_vol2
  14913.     move.w    #$40,$12(a6)
  14914. mt_vol2:move.w    $12(a6),d0
  14915.     move.w d0,$8(a5)
  14916.     rts
  14917.  
  14918. mt_voldown:
  14919.     moveq    #0,d0
  14920.     move.b    $3(a6),d0
  14921.     and.b    #$f,d0
  14922.     sub.w    d0,$12(a6)
  14923.     bpl.s    mt_vol3
  14924.     clr.w    $12(a6)
  14925. mt_vol3:move.w    $12(a6),d0
  14926.     move.w d0,$8(a5)
  14927.     rts
  14928.  
  14929. mt_portup:
  14930.     moveq    #0,d0
  14931.     move.b    $3(a6),d0
  14932.     sub.w    d0,$10(a6)
  14933.     move.w    $10(a6),d0
  14934.     and.w    #$fff,d0
  14935.     cmp.w    #$71,d0
  14936.     bpl.s    mt_por2
  14937.     and.w    #$f000,$10(a6)
  14938.     or.w    #$71,$10(a6)
  14939. mt_por2:move.w    $10(a6),d0
  14940.     and.w    #$fff,d0
  14941.     move.w    d0,$6(a5)
  14942.     rts
  14943.  
  14944. mt_portdown:
  14945.     clr.w    d0
  14946.     move.b    $3(a6),d0
  14947.     add.w    d0,$10(a6)
  14948.     move.w    $10(a6),d0
  14949.     and.w    #$fff,d0
  14950.     cmp.w    #$358,d0
  14951.     bmi.s    mt_por3
  14952.     and.w    #$f000,$10(a6)
  14953.     or.w    #$358,$10(a6)
  14954. mt_por3:move.w    $10(a6),d0
  14955.     and.w    #$fff,d0
  14956.     move.w    d0,$6(a5)
  14957.     rts
  14958.  
  14959. mt_checkcom2:
  14960.     move.b    $2(a6),d0
  14961.     and.b    #$f,d0
  14962.     cmp.b    #$e,d0
  14963.     beq.s    mt_setfilt
  14964.     cmp.b    #$d,d0
  14965.     beq.s    mt_pattbreak
  14966.     cmp.b    #$b,d0
  14967.     beq.s    mt_posjmp
  14968.     cmp.b    #$c,d0
  14969.     beq.s    mt_setvol
  14970.     cmp.b    #$f,d0
  14971.     beq.s    mt_setspeed
  14972.     rts
  14973.  
  14974. mt_setfilt:
  14975.     move.b    $3(a6),d0
  14976.     and.b    #$1,d0
  14977.     asl.b    #$1,d0
  14978.     and.b    #$fd,$bfe001
  14979.     or.b    d0,$bfe001
  14980.     rts
  14981. mt_pattbreak:
  14982.     not.b    mt_break
  14983.     rts
  14984. mt_posjmp:
  14985.     st reachedend
  14986.     move.b    $3(a6),d0
  14987.     subq.b    #$1,d0
  14988.     move.b    d0,mt_songpos
  14989.     not.b    mt_break
  14990.     rts
  14991. mt_setvol:
  14992.     cmp.b    #$40,$3(a6)
  14993.     ble.s    mt_vol4
  14994.     move.b    #$40,$3(a6)
  14995. mt_vol4:move.b    $3(a6),d0
  14996.     move.w d0,$8(a5)
  14997.     rts
  14998. mt_setspeed:
  14999.     cmp.b    #$1f,$3(a6)
  15000.     ble.s    mt_sets
  15001.     move.b    #$1f,$3(a6)
  15002. mt_sets:move.b    $3(a6),d0
  15003.     beq.s    mt_rts2
  15004.     move.b    d0,mt_speed
  15005.     clr.b    mt_counter
  15006. mt_rts2:rts
  15007.  
  15008. mt_sin:
  15009.  DC.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  15010.  DC.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  15011.  
  15012. mt_periods:
  15013.  DC.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  15014.  DC.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  15015.  DC.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  15016.  DC.w $007f,$0078,$0071,$0000,$0000
  15017.  
  15018. reachedend: dc.b 0
  15019. mt_speed:    DC.b    6
  15020. mt_songpos:    DC.b    0
  15021. mt_pattpos:    DC.w    0
  15022. mt_counter:    DC.b    0
  15023.  
  15024. mt_break:    DC.b    0
  15025. mt_dmacon:    DC.w    0
  15026. mt_samplestarts:DS.L    $1f
  15027. mt_voice1:    DS.w    10
  15028.         DC.w    1
  15029.         DS.w    3
  15030. mt_voice2:    DS.w    10
  15031.         DC.w    2
  15032.         DS.w    3
  15033. mt_voice3:    DS.w    10
  15034.         DC.w    4
  15035.         DS.w    3
  15036. mt_voice4:    DS.w    10
  15037.         DC.w    8
  15038.         DS.w    3
  15039.  
  15040. PLR1_dead: dc.w 0
  15041. PLR2_dead: dc.w 0
  15042.  
  15043. CHEATPTR: dc.l 0
  15044. CHEATNUM: dc.l 0
  15045.  
  15046. testchip: dc.w 0
  15047.  
  15048. LEVELMUSIC: dc.l 0
  15049.  
  15050. ;/* End of File */
  15051. mt_data: dc.l 0
  15052. tstchip: dc.l 0
  15053.  include "SERIAL_NIGHTMARE"
  15054.  
  15055. ingame:
  15056. ; incbin "work:temp/newmusic/testonechan"
  15057. gameover: 
  15058. ;incbin "ab3:includes/gameover"
  15059. welldone: incbin "ab3:includes/quietwelldone"
  15060.  
  15061.  
  15062.